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ADIVlNyACAO 
DE FALAVRAS 



UM D'ESAFIO PARA DOIS 



MONTAGEM DA TELA 



AS REGRAS DO JOGO 



OS VALORES DAS LETRAS 



ESTRATEGIA 



Este jogo de adivinhacao de palavras 
agrada a todas as idades, pode ter o 
nivel de dificuldade que se queira e § 
muito versdtil. Inspirado no "jogo da 
forca", destina-se a dois jogadores. 



Alguns iogo>s para computador nao 
sao apenas retrreativos — como os de 
aventura — , presiandp-se muito bem 
para fins educativos. E o caso do que 
apresentamos aqui, inspirado noconhe- 
cido "jogo da forca". 

Este, adapt ado ou nao para o com' 
putador, ajuda nao so a ampliar o vo- 
cabubrio do jogador, assim como seus 
conhecimentos gerais sobre varies temas 
(j4 que e usuaJ a defini(;ao previa de urn 
assunto sobre o qual as frases ou pala- 
vras versarao). 

O jogo de INPUT, dcsiiiiado a duas 
pcssoas, tambcm tem como objetivo a 
adivinhatao dc palavras ou frases, E 
mais interessante c mais divcrtido que 



o tradicional "jogo da forca" e tao edu- 
cativo quanto ele. Pode ser jogado da 
mesma maneira, estabelecendo-se um 
assunto, o numero dc letras das palavras 
ou outro criterio que se desejar. 



Inicialmente, digite o nome dos dois 
jogadores. Em seguida, escofha o nume- 
ro de palavras da frase que cada joga- 
dor escrevera. Observe que, muitas ve- 
zes, frases mais longas sao mais faceis 
de se adivinhar, devido ao maior nume- 
ro de letras que aparecem, 

Depois de ter escolhido o numero de 
palavras, defina o numero de jogadas 
que irao constituir a parlida — isto e, 
quantas palavras cada jogador tera pa- 
ra adivinhar. 

O primeiro jogador deve, entao, pen- 
sar em uma frase e escreve-la no com- 
putador. O adversario nao precisa eslar 
ausenle enquanto voce digita sua frase, 
pois as letras nao aparecerao na tela, 
Mas, confiando em seu oponcntc, voce 
podera optar por vcr as letras, o que Ihe 
dara a certeza de que nao cometeu ne- 
nhum crro de digitacao. 

Deixe apenas um espa«;o entrc cada 
uma das palavras da frase. No caso dc 
um unico vocabulo, ncnhum espaco c 
permitido, O tamanho tnaximo de cada 
fra.se e dc quarenta caracteres no micro 
Apple c no TK-2000, 64 no Spectrum c 
no TRS-Color e 78 no MSX. 

Ouando terminar a digitacao, pres- 
sione a tecia < KNTKR> para que a te- 
la principal apare(;a. Em seu topo, voce 
dara, entao, o nome dos Jogadores e o 
niimero de pontos de cada um — 200, 
para comegar o jogo. 

Abaixo do pJacar. ha uma tabela in- 
dicando os valorcs das letras. As de uso 
freqiienie tern valor mais alto. As me- 



nos usual s tern um valor baixo, A frase 
a ser adivinhada aparece como uma se- 
qtiencia de asteriscos. 

No rodape da tela encontram-se as 
instrucoes e, lambem, um espa^o para 
os comandos e palpites. 



ESTRATEGIA 



O jogador tem tres opgoes dc joga- 
da: comprar letras (ou espago), adivi- 
nhar uma Ictra cm deierminada posigao, 
ou adivinhar a frase loda, 

No inicio da jogada, uma boa op<;ao 
e comprar um espai;o — se suspeitar que 
a frase tem mais de uma palavra, e cla- 
ro, Vogais sao caras, mas aparecem com 
freqijencia. As letras mais baratas apa- 
recem muito menos e voce corre o risco 
de nao esclareccr nada com clas. Sem- 
pre e mais facil chegar a frase correta 
quando sc tem algumas consoantcs — 
ponamo, nao se preocupe demais com 
as vogais, 

Quando a frase comei^ar a tomar for- 
ma, provavclmentc voce querera adivi- 
nhar uma letra em determinada posicao. 
Tendo uma palavra como S*U, por 
cscmpio, a letra O sera um hom palpi- 
te. E nesse momento que se pode ganhar 
pontos. Colocando uma kira na posi- 
gao correta, voce ganha o seu valor em 
pontos. Se errar, pcrdc apenas meiade 
do valor, Prcssione XX para setecionar 
csta opvao e dar o seu palpite. 

Voce pode, tambem, ter uma subita 
inspiragao e teniar accriar a frase toda. 
Nesse caso, deve pressionar ZZ e escre- 
ver a frase, Se ela csiiver correta, o va- 
lor de todas as letras que ainda nao ti- 
nham sido descobertas sera acrcsccnta- 
do ao seu placar. Se voce errar, perdcra 
50 pontos. 

Digite a primeira parte do programa. 
Estas linhas fazem o computador acci- 



26 FkOGRAMACAOD£IOOOS 26 




tar todos os dados para iniciar o jogo. 
Mas com ela voce nao ir^ muito longe. 
A parte final — que contem as retinas 
que ieem os palpites, fazem as correi;6es 
e cent am os pontos — flea para o pro- 
ximo artigo. 

Nao se esque?a de gravar o programa. 



10 LET R3-"PALAURA-r LET W-14 
: LET d-0: LET f-1: LET OS-"" 
: LET Q=0: LET k=0; LET gS'"" 
: LET ta-200: LET tb-200: LET 
tc-0; LET b-0: POKE 23609,50; 
POKE 23658.0: LET i$-"": LET 
jS--": LET zS--": LET cS-"' 
2 FOR n-0 TO 7; READ y: POKE 
USR "a"+n,y: NEXT n 
30 DATA 255,129.129.129.129, 
129,129.255 

4 IHPUT "NOME DO PRINEIRO JO 
GADOR 7 (ATE 7 LETRAS)", 

LINE aS 
50 INPUT "NOME DO SEGUNDO JOG 
ADOR ? (ATE 7 LETRAS) " 
, LINE bS 

50 IF LEN aS>7 OR LEN bS>7 
THEN GOTO 40 

70 CLS : INPUT "QUANTAS PALAV 
RAS POR FRASE?(l-9)-, LINE cS 



80 IF LEN cSOl THEN GOTO 70 
90 IF CODE C3<49 OH CODE cS> 
57 THEN GOTO 70 
100 LET c-VAL cS 

110 INPUT "NUMEHO DE JOGADAS ? 
(1 a 9}-, LINE tS 
120 IF LEN tSOl THEN GOTO 
110 

130 IF CODE t$<49 OR CODE tS> 
5 7 THEN GOTO 110 
140 LET t-VAL t$ 
150 IF c>l THEN LET j$="S" ; 
LET iS-"COM UM ESPACO ENTBE CA 
DA" : LET rS-'FRASE" 
160 PRINT a$;",E SUA VEZ DE JO 
GAR. " ■ ■ "INTRODUZA SUA FRASE DE 
•;c;" PALA - VBA" : jS ; " . AS LETR 
AS QUE VOCE INTB0DU-2IR SERAO 
INVISIVEIS.MAS SE VOCEQUISER U 
EB ENTAO PHESSIONE '0'. PAHA C 
ONTINUAB, PRESSIONE 1." 
170 LET kS-INKEYS: IF kS-"" 
THEN GOTO 170 

190 IF k3-'0- THEN POKE 23624 
.56: INPUT LINE B$\ CLS : 
GOTO 220 

200 IF kS-"l" THEN POKE 23624 
,63: INPUT LINE ■$ : CLS : 
POKE 23624,56: GOTO 220 
210 GOTO 170 
220 LET 1-LEN s3 

230 IF 1=0 THEN PRINT "ENTRAD 
A ILEGAL. TENTE DE NOVO"; 
PAUSE 100: CLS : GOTO 160 



240 IF 1>64 THEN PRINT "ENTRA 
DA MUITO LONGA. TENTE DE NOV) 
O": PAUSE 100: CLS : GOTO 160 
250 FOR n-1 TO 1 : IF aS tn) - 
CHR3 32 THEN LET d-d+1; GOTO 
270 

60 IF CODE B$(n)<65 OR CODE 
'BS(n)>90 THEN PRINT "LETRA IL 
EGAL. TENTE DE NOUO" : PAUSE 
100: CLS ; LET d-0: GOTO 160 
270 IF c-1 AND d-1 THEN PRINT 
"NAO HA ESPACOS DENTRO DE UNA 

UNICA FALAVRA. TENTE DE NOV 
0.': PAUSE 100: CLS : LET d-0; 

GOTO 160 
280 NEXT n 

290 IF dOc-1 THEN PRINT "UOC 
E DEVE INTRODUZIR -;c;" PALAUR 
AS "ilSi". TENTE OUTRA VEZ": 
PAUSE 100: CLS : LET d-0: GOTO 

160 
300 LET zS-"" 

310 FOR n-1 TO 1; LET 2S-ZS+"* 
" : NEXT n 

320 PRINT INK 1 ; AT 0,0; "SCORE 
/-;aSr PRINT INK 1;AT 0,16;*S 
C0HE/":b3: PRINT PAPER 2, INK 
6iAT 1.6;ta;TAB 22;tb;TAB 31;" 



330 PRINT AT 3 . 7 : "VALOR DOS CA 
BACTERES" 

340 FOR n-0 TO 26: READ gS : 
LET q$-q9+gS: NEXT n: PRINT qS 
: RESTORE 900 

350 PRINT INK 1;AT 12.0;"A "i 
r3;" QUE ";b3:" TEM QUE ADIVI 
NHAR CONTEH " ; L ; " CAHACTERES"; 
PRINT PAPER 2\ INK 6 ; zS 
360 INPUT "VOCE QUER COMPBAB U 
M CARACTER PELO PHECO EXIBID 
O NA TABELA7 FACA A ESCOLHA 
DO CARACTER. SENAO, TECLE 
XX PARA ADIVINHAB UM CARACTER 
OU ZZ PARA ADIVINHARA FRASE T 
ODA.-, LINE d$ 
1000 DATA •A-20 "."B-IO 
,"C-10 "."0-12 ","E-20 
-,"F-Oe ","G-12 -."H-oe 

1010 DATA "1-20 -,-J-04 
,-K-06 ",-L-lO -,"M-iO 

"."N-IO -,-0-20 "."P-IO 
-."Q-02 ","R-12 "."S-1 
2 

1020 DATA "T-12 -."0-20 
,"V-08 "."U-08 ","X-04 

","Y~Oe ","2-02 "."<GRAr 
HICS A>-20 



I 



DD 



5 CLEAR 1000 

10 R9-*PALAVRA':U-14: F-1: TA-200 

:TB-200 

15 P1-PEEK(359) :P2-PEEK(360) :P} 

-PEEKOei) 

40 CLS: LINE INPUT 'NOME DO PRIME 

IBO JOGADOR (MAX 7 LETRA 

S) ?-jA3 

SO PRINT: LINE INPUT'NOME DO SEO 

UNDO JOOADOR (MAX 7 LET 

RAS) ?'iB$ 

60 IF LEN(A3)>7 OR LEN {B3}>7 T 




manipulaqAo de cordAes 

Os comandos BASIC capazes de 
agir sobra variiveis alfanum^ricas 
constituem a chave do sucesso do pro- 
gramador Interessado em jogos e apll- 
cativos que manipulem palavraa. 

Comandos como RIGHTS, LEFT$ e 
MID$ permitem a "leitura" do conteu- 
do de uma cadeia de caracteres. E te- 
mos ainda fun(p6es como LEN, CHR4, 
STR* e STRINGS, que tornam possfvel 
a cria^lo de novos corddea ou a trons- 
forma?ao dos antigos. 

Observe que os comandos seguidos 
por um cifrfio — "$"— geram novos 
cordOes, enquanto os comandos sem 
este ainal resultam num valor num^ri- 
co que correaponde so operando. 



BEN 40 

70 CLS:LINE INPUT'ESCOLHA NIV 

EL DE DIFICULDADE (NtmERO DE P 

ALAURAa/FRASE 1-9) ?" [C9 

SO IF LEN(C$)<>1 THEH 70 

90 IF CSC"I" OR Ca>*9" THE*! 70 

100 C-UAL(CS) 

no PRINT: LINE INPUT 'NUHERO DE 

JOOADAS (1-9) 7 'iT3 
120 IF LSN<T9}<>1 THEN 110 
130 IF TS<"1" OR TS>'9" THEN 11 


140 T-yAL(T9) 

150 IF Ol THEN J3-"S" : ia-"COH 
UM ESPACO ENTRE CADA' : Rd-'FRASE 

155 CLS 

160 PRINT AS ; ' , E SUA VEZ DE JO' 

OAR' : PRINT : PRINT' INTRODUZA SUA 

FRASE DE "iCi" PAI.A-VHA' j J3 

165 PRINT: PRIHT''PRE3SIONE*0' PAR 

A VCR AS LETHAS OU ' 1 ' PARA CO 

MTINUAR . . .■:PRINT 

170 K9-INKEyS:rF K3-'* THEN 170 

190 IF KS-'l' THEH PRINT "?'',: 

POKE 359, LHSA: POKE 360, 32: POKE 

361,57: LINE INPUT S3: POKE 359, P 

1:P0KE 360, P2: POKE 361, P3: GOTO 

220 

200 IF K$-'0' THEN LINE INPUT * 

? ';S$:O0T0 220 

210 OOTO 170 

220 L-LEN (39) : PRINT 

230 IF L-0 THEN PRINT 'ENTRADA 

ILEOAL - TENTE DE N0V0':GO3UB 9 

50: CLS: OOTO 160 

240 IF L>64 THEN PRINT'ENTRADA 

MUITO LONCA-FACA DE NOVO':aOSUB 

950: CLS: GOTO 160 
250 FOR N-1 TO L:IF WID$(S3,N,1 
)-CHR3(32) THEH D-D+1:G0T0 270 
260 IF MID3<83.N,1)<''A" OR MID3 
(S5,N,1)>"2" THEN PRINT "CARACT 
IR ILEOAL - TENTE DE N0V0*:a08U 
B 950 : CLS :D-0: GOTO 160 



270 IP C-1 AND D-1 THEN PRINT'N 

AO HA ESPACOS DENTRO DE UHA 

UNICA PALAVRA! TENTE DE NOVO'iO 

OSUB 950:CL9:D-0:OOTO 160 

280 NEXT N 

290 IF DOC-1 THEH PRINT "VOCE 

PRETENDS IHTRODUZIR' ! C ; 'PALA-VR 

AS 'iI3:PRINT'TENTE DE NOVO': 00 

SUB 950: CLS iD-0: OOTO 160 

300 23-" 

310 FOR N-1 TO L:Z3-Z3+"*':NEXT 

N 
320 CLS:PRINT'3CORE/':A8. 'SCORE 
/":B9:PRINT «38 ,TA; TAB ( 22) eTB j ' 

m 

330 PRINT 969,' VALOR DOB CARAC 
TERES" 

340 FOR N-0 TO 26: READ 09:QS-Q$ 
+03:NSXT N: PRINT Q3: RESTORE 
350 PRINT e320.-A * ! R9 i " CONTEM 
"jL: 'LETHAS': PRINT Z3 
360 PRINT §416."!;LINE INPUT ' 
XX-ADIVINHAR LETRA 
ZZ-ADiyiNHAR A FRASE 
A-Z-COMPRAR CARACTER ?"|D 
3 

900 DATA 'A-20 ","B-10 
■C-10 -.•'D-12 '.'E-20 
','P-08 ","0-12 "."H-10 

I* 

910 DATA"l-20 ■,-J-04 
K-06 ".-L-IO "."M-10 
,'N-IO ","0-20 ".'P-IO 
-,-Q-02 ","R-12 ","9-12 



920 DATA 'T-12 ",'U-20 
"V-08 -,"H-08 ■.'X-04 
","Y-08 ',"Z-02 ","•-20 



m 



5 CLEAR 2000 iKEYOFFr COLOR 15,4, 

4 

10 R$-"palavra":H-14:F-l:TA-200 

:TB-TA 

40 CL3:LINElNPUT"No*e do Jooado 

r 1 (aax 9 letraa) ? 'tA9 

50 PRINT: LINE INPUT"NO»e do jog 

ador 2 (■■x 9 letraa) ? "jB 

$ 

60 IF LEHtA$)>9 OB LEN(B9)>9 TH 

EN 40 

70 CL3:PflINT"Qvjal o nfvel de dl 

f iculdade": INPUT" (ntlMro de pal 

avraa 1-9) " [C9 

90 IF CS<"1' OH C3>'9" THEN 70 

100 C-VAL(C9) 

110 PRINT iINPUT'NdKaro de jogad 

BD (1-9) 'jTS 

130 IF T3<"1* OR T8>"9" THEN 11 



140 T-VAL(T9) 

150 IF Ol THEN J9-"a" ; I9-"co» 

um aspaco entra elaa' iRS-* FRASE 

160 CLS:PRINTA3t "■ * a aua vei . 




" tPRINT'DiqiCe aua fraae de'iC; 

"palavra" ; J$; ' . " 

165 PRINT :PRlNT"3e deoejar ver 

aa letraa digitadas, preseione 

<0>, Benao presaione <1>."; 

170 KS"INKEY$:IF Kg-*" THEN 170 

175 IF KSO'l- AND K3<>"0- THEN 

170 
leO IF K$-"0" THEN 200 ELSE PRI 
NT:PBINT'? "i 

190 KS-INKEYS:IF K$-"" THEN 190 
195 IF K5<>CHH$(13J THEN SS-S3+ 
Kd:GOTO 190 ELSE 220 
200 PRINTrLINEINPUT"? ' ; 3S 
220 L-LEK{S$) iPHTMT 
230 IF L=0 THEN PBINT-'Entrada i 
legal - repita-rGOSUB 9S0:CLS:G 
OTO 160 

240 IF L>78 THEN PRINT" Entrada 
Muito longa - repita' :G03UB 950 
;CLS:GOTO 160 

250 FOR N-1 TO L:IF MlDStSS.N.l 
)»CHRS{32) THEN D-I>+l:aOTO 270 
260 IF MID${S$,N,1)<'A* OB MID? 
{SS,N,1)>-Z-ANDMID3(3S,N,11<>"C 
"THEN PHlNT'Caracter i legal - r 
epita*:GOSUB 950 :CLS : D-0 : GOTO 1 
60 

270 IF C-1 AND D-1 THEN PRINT'E 
Bpacon nSo aSo perHltidos mm urn 
a dnica palavra - repita': 
G03UB 950 ;CLS: D-0: GOTO 160 
280 NEXT 
290 IF DOC-1 THEN PHIMT"tfocfi d 




^ possivel transformar o progrsma 
em um jogo de palavras cruzadas? 

fcmbora nosso programa nao possa 
ser transformado num jogo desse tipo, 
file certamente mostra o caminho para 
que o leitor elabore seu pr6prio 
programa . 

Num jogo de palavras cruzadas, o 
jogador tamb^m deve descobrir quais 
sao as letfas de palavras "escondi- 
das". A diferenga 6 que no nosso jogo 
precisamos descobrir os caracteres de 
um cofdio, enquanto no de palavras 
cruzadas, buscamos elementos de uma 
matriz alfanum6rica. 

O tipo de pista que se del ao jogador 
tamb6m 6 diferente. As instrugoes de 
um jogo de palavras cruzadas podem 
ocupar um espago tao grande Quanto 
OS textos de um pequeno jogo de aven- 
tura. A disposi<;ao espacial das letras 
na tela tamb6m 6 muito importante, No 
programa, devemos correlactonar as 
coordenadas X e Y da tela aos nume- 
ros de linha da matriz de letras. 



ev« dlgitar" ;Ci "palavras ';l$;' 
- repita»:G03UB 950 :CLS: 0-0:00 
TO 160 
300 23-'" 

310 Z3-STBING3{L,"*") 
320 CLS : PRIHTAS; TAB { 25 }B3: PRINT 
TAi "pontoB" iTABC2S) iTB; ■pontoa" 
330 LOCATE 7 , 3 : PBINT'Valorea do 
B caracterea" 

340 Q3-"":F0R N-1 TO 2a:HEAD 0$ 
:Q$-Q9+G3+STRIH03(4+tN/5-IHT(N/ 
5)) ,32) : NEXT 1PHINTQ3: RESTORE 
350 LOCATE 0,11:PRINT"A "jB3i' 
cont*»" ; L ;" letraa" : PRINTZ3 
360 LOCATE , 21 : PHINTSPC (77) : LO 
CATE 0,21:PHINT"XX-Adivinha let 
ra 2Z-Adivinha f raae" : IKPUT" 
A-Z CoMpra letra " i DS 
900 DATA A-20,B-0e,C-12,C-06,D- 
2O,E-2O,F-12.G-Oe,H-08,I-16,J-0 
8,K-02,L-10,M-12,N-12 
910 DATA 0-20,P-08,fi-09,H-12.3- 
20.T-12.U-16,V-08,M-02.X-Oe,Y-0 
2,2-06,_-20 



mm 



10 R3 - "PALAURA'rW - 14 :F - 1: 

TA - 200 :TB - TA 

40 HOHE : INPUT 'NOME DO JOOAD 

OR 1 (MAX 9 LET) ' ;AS 

50 PRINT r INPUT "NOME DO JOQA 

DOR 2 <MAX 9 LET) ' i B3 

60 IF LEN {A3) > 9 OR L£N (B 

33 > 9 THEN 40 

70 HOME : PRINT "NIUEL DE DlFl 

CULDADE" : INPUT " (NUMERO DE PAL 

AVRAS 1-9)? ";C3 

90 IF C$ < "1" OR C3 > "9" THE 

N 70 

100 C - UAL (03) 

110 PRINT : INPUT "NUMERO DE J 

OGADAS (1-9)7 " ;T$ 

130 IF T3 < "1" OH T3 > "9- TH 

EN 110 

140 T - VAL {T3) 

150 IF C > 1 THEN J3 - "3": 13 

- "COM UM E3PAC0 ENTBE ELAS";B3 
" -FHA3E" 

160 HOME ; PRINT AS". E A SUA 
VEZ.": PaiNT "DIGITE SUA FRA3E 
DE " ; C ; " PALAVRA" : J3 ; " . " 
165 PRINT : PRINT "SE DESEJAR 
VER AS LETRAS DIGITADAS, PR ESS I 
ONE <0>, SENAO PRE3SI0NE <1>."; 

170 GET K3; IF KS < > "I" AND 
K3 < > "0" THEN 170 

180 K - VAL (K3) : PRINT : PRIN 

T 

185 33 - " ■ 

190 GET KS: IF K - THEN PRI 

NT K$i 

200 IF K3 - CHRS (8) AND LEN 
(33) > 1 THEN SS - LEFT3 (33, 
LEN (SS) - 1) : GOTO 190 

210 33 - 33 + K3: IF KS < > C 

HRS (13) THEN 190 

220 S3 - MID3 (33,2, LEN (SSJ 

- 2) ;L - LEN (SS) 

2 30 IF L - THEN PRINT : PRI 
NT "ENTRADA ILEGAL - REPITA"; C 
HRS (7) i : QOSUB 950: HOHE : GOT 



160 4 

240 IF L > 40 THEN PRINT : PB 
INT "ENTRADA MUITO LONGA - REPI 
TA'! CHRS (7);: GOSUB 950r HOME 

: GOTO 160 
250 FOR N - 1 TO L: IF MID3 ( 
3S,N,1) - CHRS (32) THEN D-D 

+ 1: GOTO 270 
260 IF WID3 (S3.N.1) < "A" OB k 
MID3 (SS.N.l) > *Z" THEN PRI I 
NT : PRINT "CARATEB ILEGAL - PC 
PITA": GOSUB 950: HOME :D » 0: 
GOTO 160 

270 IF C - 1 AND D-1 THEN P 
RINT : PRINT "E3PAC0S NAO SAO F 
ERMITIDOS EM UMA UNICA PAL 
AVRA! - REPITA': GOSUB 950: HOM 
E :D - 0: GOTO 160 
260 NEXT 

290 IF D < > C - 1 THEN PRIN 
T : PRINT "VOCE DEVE ENTRAR ";C 
;■ PALAVRAS " ; IS i " " REPITA": C 
OSUB 950: HOME ;D - 0: GOTO 160 > 

300 Z3 - " " 

310 FOR N - 1 TO L:2S - ZS + • 
*": NEXT 

320 HOME : PRINT AS; TAB ( 25); 
B3: PRINT TAs ' P0NT03" ; TAB ( 25 
) iTfl:" PONTOS" 

330 UTAB 4: HTAB 8: PRINT 'UAL 
ORES DOS CARACTERES" ; 
340 OS - " ": FOB N - 1 TO 28: 
BEAD G$:Q3 = Q3 + G3 + ' ": 
NEXT : HTAB 40: PRINT 0$: RESTO 
RE 

350 UTAB 12: PRINT "A ";HS!" C 
ONTEM ";L:" LETRAS";: HTAB 40: 
PRINT 23 

360 VTAB 22: CALL - 95B: VTM 
22: PRINT "XX-ADIVINBA LETRA 
2Z-ADIUINHA FRASE" • INPUT " 
A-Z COMPRA A LETRA " ; DS 
900 DATA A-2O.B-O8,C-12,D-20 
,E-20,F-12,G-08.a-O8 
910 DATA I-16.J-O8,K-O2.L-10 
,M-12,N-12.O-20,P-O8,Q-0B,R-12. 
3-20 

920 DATA T-12,U-16,V-08,U-02, 
X-04.y-02,' ",Z-06,_-20 



O programa e muito parecido pan 
todos OS microcomputadores, ja qui 
nao ha grdficos que requeiram coman- 
dos especiais para monta-los. Apenas o 
inido difere um poaco em alguns casos 
No MSX e no TRS-Color e precise re- 
servar espa^o para as varidveis alfanu- 
mericas que serao usadas. 

A linha 10 define todas as variaveis 
necessarias para o jogo. No TRS-Color, 
OS PEEK da linha 15 sao utilizados mm 
tarde para evitar que aJgumas letras apa- 
re<;am na tela. As linhas 20 e 30 do Spec- 
trum definem um UDG em branco pa- 
ra a tabela de letras. 

As linhas 40 e 70 dao as mensagens 
iniciais do jogo. O nome dos jogadores 
e chamado pelas linhas 40 e 50. A linha 
60 verifica se eles nao sao muito com- 
pridos para o espa<;o disponivel na tela. 



* 




niimero de paJavras da frase e esco- 
Ihido na linha 70. 

As linhas 80 a 100 fazem verificagoes 
com a finalidade de se cerlificar de que 
niimero de palavras por frase estd den- 
tro dos limites do programa. 

Esse numero ^ representado pela va- 
rMvel C$. A linha 80 (quando existen- 
te) verifica se a entrada e de apenas um 
caractere; a linha 90 checa se o valor di- 
gitado esta entre os niimeros 1 e 9. A li- 
nha 100 converte esse valor para uma 
variavel numenca. 

As linhas ItO a 140 estao relaciona- 
das ao numero de jogadas escolhido. A 
linha 110 apresenta a mensagem e ob- 
tem a resposta (variavel TS). As linhas 
120 e 130 sao similares as linhas 80 e 90. 
A linha 140 converte o valor para uma 
variavel numerica. 



Se a frase for constituida de mais de 
uma palavra, a linha 150 diz ao joga- 
dor que coloque apenas um espa?o en- 
tre cada palavra. R$ e definida como 
'*FRASE" para uso posterior. 

O programa passa, entao, para a roti- 
na de entrada da frase que um dos joga- 
dores devera adivinhar. Ela vai da linha 
160 at^ a 220 e fornece instrugoes para 
o jogador que vai digitar a frase. Se ele 
selecionar 0, a frase aparecera na tela; 
caso contririo, ela permaneceri invisi- 
vel. A frase e armazenada na variavel S$. 

As linhas 230 a 290 conferem a frase 
para verificar se estd de acordo com as 
regras. Se ela nao tiver nenhum carac- 
tere, isto e, se a tecia < ENTER > foi 
pr essionada antes de se digitar qualquer 
letra, a linha 230 anuncia uma entrada 
ilegal e pede que se reptta a opera(;;ao. 



A linha 240 verifica o tamanho da frase 
e a 250 o numero de espa^os (que deve 
ser um a menos que o numero de pa- 
lavras). 

As linhas 260 e 270 procuram carac- 
teres ilegais. Observe que apenas letras 
maiiisculas serao aceitas, sem acento. 
No MSX, pode-se usar o "<^*'. 

As linhas 300 e 310 sao encarregadas 
de defjnir a variavel Z$, que contem a 
seqiiencia de asteriscos de numero igual 
ao de letras de SS. 

A rotina final, das linhas 320 a 360, 
monta o que falta da tela principal, len- 
do a tabela de valores de linhas DATA 
e colocando a tabela na posi^So adequa- 
da. A seqiiencia de asteriscos tambem 
e posicionada. A linha 360 apresenta as 
opgoes para o jogador que vai adivinhar 
a frase. 



APERF 
BANC 



ilCOE SEU 





Apfesentamos aqui novas retinas 
para o seu banco de dados. Elas 
tornarlo o programs mats eficienta, 
permttlndo-lha organizar 
melhor as informa^fies que desejar. 
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ADIC AO DE NOVAS OPC OES 



CQMO MELHQRAR AS ROTINAS 
J A EXISTENTES 



IMPRESSAO CONTINUA 



UMA NOVA ORGANIZA CAO 



DO ARQUIVO 



BUSCA DE MULTIPLAS 



INFORMACOES 



USD DO CONTROLADOR 
DE DfSCOS 



O programa de banco de dados que 
desenvolvemos nos artigos das paginas 
68 e 81 e muito litil para arraazenar in- 
formagoes. Nao importa que sejam de- 
tathes de seu passatempo prediJeto, re- 
sultados de uma pesquisa, endere^os de 
amigos e clientes ou qualquer outro ti- 
po de dado. Devidamente arquivados, 
e!es poderao ser consultados, corrigidos, 
alterados, apagados e mesmo impresses 
em papel. 

Como qualquer outro programs de 
banco de dados, o nosso tambem nao 
e perfeito para todas as apticat^oes pos- 
sfveis. Para que voce possa adapta-lo da 
melhor maneira as suas necessidades, 
apresentamos algumas novas rotinas as- 
sim como sugestoes para o aperfei^oa- 
mento das ja existentes. As rotinas, di- 
ferentes para cada computador, serao 
examinadas separadamente. 



Para os usuirios do Sinclair Spec- 
trum, seiecionamos duas rotinas: uma 
para a entrada continua de rcgistros e 
outra para impressio continua, 



ENTRADA CONTINUA 



Estas linhas Ihe permitirao dar entra- 
da aos registros continuamente, sem 
precisar retornar ao menu. Bias impe- 
dem tambem que um cordao nulo — 
que provocaria a volta ao menu — seja 
aceito. Pressione <ENTER> quando 
comptetar a entrada dos dados. 

2000 CLS : LET C-V 

2110 FOR N-y TO A: PRINT INVEH 

SE W;AT V+N*2.0;N3(N) ;AT V+N*2 . 

12: FLASH V;"?": INPUT "(ate ' ; 

A(N)i" caracteres) ", LINE ASCC, 

B<N)+V TO B{N+V)) : IF N-U AND A 

S(C,B(N)+V)-CHHS 32 THEN RETUR 

N 

2115 PRINT AT V+M*2 . 1 2 : AS (C , B (N 

) +U TO B (N+V) ) : NEXT N 

2120 FOR F=U TO 150: NEXT Fr IF 

C-U THEN GOTO 2000 
2140 IF A${C)>-AS(C-V) THEN GO 
TO 2000 

2150 LET XS-AStC): LET A3{C)-A$ 
(C-U): LET AS(C-U)=XS: LET C-C- 
U; IF C-V THEN GOTO 2000 



IMPRESSAO CONTiNUA 



Como esta, o programa possibilita a 
impressao apenas do registro em exame. 
Para imprimir a lista inteira, sera neces- 
sario passar por todo o arquivo e co- 
mandar a impressao. Esta nova rotina 
faz o trabalho por voce, iniciando pelo 
registro que esta sendo exibido e impri- 
mindo todos os seguintes ate o fim da 
lista, Se quiser imprimir todos os regis- 
tros, certifique-se de que esta no regis- 
tro 1, antes de iniciar o processo. Para 
interromper a Ustagem, pressione qual- 
quer tecla. 

120 LET 0P=1 
3015 IF D-U=R THEN LET D=D-V r 
IF OP-6 THEN LET OP-1 
3020 IF AS(D,V)-CHRS 32 THEN L 
ET D=»D-U: IF OP^S THEN LET 0P= 
1 

3085 IF 0P=6 THEN LET D=D+V: G 
OTO .1010 

4060 IF D>R THEN LET D-PM: IF 
0P=5 TBEN LET 0P=1 
4080 IF ASCD,V)-CHB5 32 THEN L 
ET D=PM: IF 0P=6 THEN LET OP=l 
4165 IF OP-6 THEN LET MO-V: LE 
T D=D+MO: GOTO 4060 
9502 IF 0P"6 AND INKEYS-"" THEN 

copy : RETURN 
9505 PRINT INVERSE V;AT 19, U;" 

impreBaao (C) ontinua" ! TAB 31:" 

m 

95B5 IF VS-'C" THEN COPY ; LET 
0P=6 



Apresentamos quatro rotinas para o 
seu TRS-Color: impressao continua, 
reordenafao do arquivo, procura por 
multiplos campos e adapta^ao para 
acionadores de disco. 



IMPRESSAO CONTiNUA 



Com esta rotina, voce poder^ impri- 
mir todos OS registros de uma so vez. Se- 
lecione a opgao de impressao e escolha 
entre impressao continua ou registro 
unico. A impressao come?a no registro 
que est^ sendo exibido na tela e vai ate 
o fim da lista. 

Se voce quiser imprimir todo o arqui- 



vo, nao se esque^a que deve come^ar 
com o registro 1. 

1050 PRINT •3S5.-NUMEH0 DE CAMP 

OS (1-80 ?"; 

1060 INS-INKE*S:IF IN$<"1" OR I 

N3>"8" THEN 1060 

10?0 A-VALCINS3 :DIM A(A},N${A) 

5070 IF D>NH AND G-1 THEN G-0:C 

H — l:CP-0 ELSE IF D>NR THEN CP- 

0:GOTO 5230 

5105 IF CP-1 GOSUB 10040 :GOTO 5 

160 

5210 GOSUB 10000 :G0T0 5160 

6023 IF CP-1 GOSUB 10040 :GOTO 6 

080 

6130 GOSUB lOOOO: IF CP-1 THEN 

6080 ELSE 6030 

6140 IF D>NR THEN D-lrCP»0 

10000 PRINT €449," AJUSTE A IMP 

RESSORA cOHT';STRING3{36.32 

) ; 

10010 IF INKEYS<>"C" THEN 10010 

10020 PRINT 8448," CONTINUA OU a 

OMENTE UM REGISTRO?"; 

10030 IN$-INKEy3:IF INSO'C" AN 

D INSO'S' THEN 10030 

10035 IF IN3-"C- THEN CP-1 



REORDENACAO DO ARQUIVO 



O programa original faz a ordena^ao 
dos registros sempre pelo mesmo cam- 
po (o primeiro), A nova aJternativa, que 
aparecera com o niimero 8 no menu, ■ 
permite que o campo-chave para a orde- 
napao seja mudado. Depois da mudan- 
?a, o arquivo ^ reordenado e o campo- 
chave passa a ser o primeiro da lista. 

105 PRINT §388. -8-REOHGANIZAH C 

AMPOS- 

120 INS-INKEY3:IF IN3<"1' OR IN 

3>"8" THEN 120 

150 ON IN GOSUH 1000,2000,6000, 

5000 , /OOO, 6000 ,9000, 11000 

11000 IF A-1 THEN PRINT" NAO PO 

S30 RE0HGANI2AR 1 CAMPO 1 • : FOR K 

-1 TO 5 000: NEXT -RETURN 

11010 PRINT "NUM. IX) CAMPO" , "NOM 

E" 

11020 FOR N-1 TO A: PRINT N.NSCN 

\ m UFXT 

11030 PRINT: PRINT- DIGITE NUH 

EHO DO NOVO CAMPO CHAVE (2 A" 

jAi"}"! : INPUT NC 

11040 NC-INT(NC) :IF NC<2 OR NO 

A THEN CLS:GOTO 11010 

11050 CLS: PRINT" TROCAMDO E ORO 

ENANDO CAMPOS" ,[|j 

11060 T3-N3(l) :NStl)-N3(NC) :N3{ ' 



KC>-TS:T-A{1) :A(l)-AtMG) :A(HC)- 
t 

11070 FOR N-1 TO NR:T9-Aj (N.l) : 
A9 (N , 1] -Ad (N,NC) : AS (N , NO -T9 :NE 
XT 

11080 rOR N-1 TO NB-I:K-N 
11090 FOR J-N+l TO NR 
moo IF AS(J,l)<A3{K.l) THEN K 
-J 

11110 MEXTiIF NOK THEN FOR C-1 
TO A:T9-A$(K,C) :A$lK,C)-A3(H,C 
)-T«:NEXT 
11120 NEXT; RETURN 



PROCURA POR MULTIPLOS CAMPOS 



Esta nova op^So permits que voc8 
busque mais de uma inforraafSo por 
vez. Quando sc seleciona a rotina de 
busca a partir do menu principal, deve- 
se responder, para cada campo, o que 
seri procurado. VocS pode procurar por 
quamos campos desejar. Se um deles 
nao Ihe interessar, simpJesmente tecle 
< ENTER > e vj4 em f rente. 




TODOS OS DADO 
HULTANEAMENT 



Em seguida, o computador pergun- 
tari se os dados especificados deverao 
estar presentes em todos os registros ou 
nao. Se sua resposta for SIM, apenas os 
registros que contenham todos os dados 
especificados seralo mostrados- Caso vo- 
cS responda NAO, qualquer registro que 
contenha pelo menos um dos dados se- 
ri exlbido. Se, por exemplo, vocS soli- 
citar o nome MARIA para o campo 1 
e CAMPINAS para o campo 3, apenas 
pessoas que se chamem Maria E rcsidam 
em Campinas serao apresentadas caso 
voce tenha respondido SIM h pergunta 
anterior. Caso contrSrio, todas as pes- 
soas que se chamem Maria OU residam 
em Campinas ser3o listadas. 

5000 PRINT fB.BSj'opcao'iBSrde 

5010 BT*0: PRINT: FOB N-1 TO A:PR 

IHT "PROCURA PKLO QUE NO CAMPO" 

:PHINT Ni", "iNSCNJ : ' 7" 

5020 LINEINPUT SS{N):IF 8S(N}<> 

" * THEN BT-BT^l 

5025 NEXT: IF BT-0 THEM RETURN 

5027 IF BT<2 THEN BT-0:GOT0 506 



5030 PRINT: PRINT 

S DEVEM ESTAR 31 

E NO HESHO REOISTRO (S/K) 7'; 

5040 INS-INKE¥3:1F IN3<>'8" AND 

INSO'N" THEN 5040 
5050 CLS:BT-0:IF IN$-"S" THEM B 
T-1 

5090 FOR 2-1 TO AiPS-lNSTR (AS (D 
,Z) ,SSCZ)) :1F P3>0 AND BT-0 MX) 

S8(Z)<>"" THEN Z-A:NEXT:OOT0 5 
100 

5093 IF P3-0 AND BT-1 THEN Z-A: 
NEXT !D-D+CH: GOTO 5070 
5096 NEXT: IF BT-0 THEN D-D+CH:a 
OTO 5070 

5230 CLS 2: PRINT " NENHUM REOI 
BTBO COM" I : IF BT-1 THEN PRINT « 
21," TODOS OS", ELSE PRINT «21 , " 

ALGUM DOS" 

5231 PRINT " DADOa FOI ENCONTH 
ADO" ' 

5235 FOR 2-1 TO A: IF 39 (Z}-"" T 
HEN 5245 

5240 PRINT §96+Z*32.N3(Z) t :PBIN 
T «107+Z«32.S3CZ) J 
S245 NEXT:CP-0 



USO DO ACIONADOR DE DrSCOS 



As linhas que se seguem fazem com 
que o programa trabalhe com o auxllio 
de um acionador de discos. Se voce usa 
um gravador cassete, nao as digite, pois 
as rotinas de carregamento e gravafSo 
serio alteradas. 

Antes de introduzir as novas linhas, 




iS APUCACOiS 18 



vocS deveri apagar as tinhas 8060 a 
8070, 8150 a 8200 e 7090 a 7140. A ma- 
neira mais fdcil de fazMo 6 digitar DEL 
n? InJcial a? final. Por exemplo: DEL 
8060-8070. 

Para transferir dados da fita cassete 
para o acionador de discos, carregue o 
programa e fa^a as alteraijoes da rotina 
degrava?3o (linhas at^ 7080). Carregue 
OS dados e grave-os em disco. Apague, 
entio, as linhas de 8060 em diante (s6 
as especificadas antes). For fim, digite 
as novas linhas da rotina de carregamen- 
to de dados. 

80 PRINTI292,''5-gALVMl MIQUIUO- 

90 PRINT %324.'6-CARRZOkB. KRQUl 

VO" 

1130 NEXT:B-INT{9000/{5+5«A))-l 

.PRINT 'NUMERO MAXIMO OB REOIST 

B08-"iR 

1140 DIM AS <R, A): FOR I-l TO 200 

: NEXT : RETURN 

70OO CLS: PRINT" CERTIFIQUE-SE D 

E QUE DRIVE ESTA LIGADO B 

DISCO IN3ERID0 E PRESSIONE < 

£»TER> 

70^0 IF INKEy9<>CHR$(13) THEN 7 

010 

7020 PRINT: PRINT" QUAL NOME D 

ARQUIVO 7'{:LINEINPUT FI3 

7030 IF LEFTS (FIS-1)<"A" OR LEF 

TStFI9,l)>''Z" THEN 7020 

7040 OPEN "0",»l.FIS+VDAT-:CLa 

6rPRIKT •232," OHAWANDO "iFISi 

7050 VRITE |il,R,A,NR 

70fiO FOR N-1 TO A:URITE «1,NS(H 

) ,A(N) :NEXT 

70 70 FOR C-1 TO NR:F0R N-1 TO A 

rWRITE |l,Aa(C,N) :NEXT N.C 

7080 CLOSEIl: RETURN 

8030 PRINT «6S,'8ELECI0NE DIS 

CO, PRESSIONE <ENTEB>' 

8040 IF INKEyS<>CKR$(13) THEN 8 

040 

6050 IF R>0 THEN RUN 9210 

8060 PRINT; PRINT" QUAL NOME D 

ARQUIVO ?• i sLINEINPUT FIS 

8090 IF LEFTS CFIS.IX'A- OR LEF 

T3(FI9,1)>"Z" THEN 8080 

8100 OPEN "I»,41,FI3+"/DAT" 

8105 INPUTtl,R,A,NR 

8110 DIM A(A) ,N$(A> ,A9(R,A) 

6120 FOR N-1 TO A: INPUTtl .NS <N) 

,A(N) :NEXT 

8120 FOR C-1 TO NR:FOR N-1 TO A 

:INPUTI1,AS(C.N) :NEXT N,C 

8140 CLOSEtl: RETURN 



IMPRESSAO CONTiNUA 



Apresentamos trSs rotinas a mais pa- 
ra MSX. Com etas voc6 poderA fazer 
uma listagem contfnua dos seus dados, 
reorganizar o arquivo e buscar virias in- 
formafSes ao mesmo tempo. 

A rotina para impressSo continua 
permite que vdrios registros do seu ar- 



quivo sejam listados de uma s6 vez. O 
registro a partii do qual voc5 quer co- 
me?ar a listagem deve estar sendo exi- 
bido na tela. Selecione, entSo, a cp^ao 
II]mprimir e, a seguir, a opglo [C]ontf- 
nua. Todos os registros a partlr deste se- 
rao listados. 

Com a op^ao [R]egistro vocS pode 
imprimir apenas aquele que esti sendo 
mostrado. NSo se esque^a de que, para 
listar todo o arquivo, voc2 deve ter o re- 
gistro n? 1 da tela. 

5070 IFD>NRANDG"1THEN Q"0:CH"-1 
:CP-0 EL3EIFD>NBTHEN CP-0 : GOTO 

5 2 30 
5105 IF CP-1 THEN GOSUB 10040 :G 
OTO fiOBO 

5210 GOSUB10O0OiCOTO5160 
6025 IF CP-1 THEN OoaiJB 10040:0 
OTO 6080 

61.10 GOaUBlOOOOrlF CP-1 THEN 60 
60 ELSE 6020 
6140 JFD>NRTHEND-l:CP-0 
10030 PRINT: LOCATE 1: PRINT" IMPH 
ESSAO [OONTtNUA OU [RJEOISTRO? 

10035 IN$-lNKEY3iIFIN5:<>"C''ANDI 

N3<>"B"THEN10035 

10037 1F1N5-''C" THEN CP-^. 



REORGANIZACAO DO ARQUIVO 



Esta nova op^io permite que se tro- 
que o campo-chave para a ordenafSo do 
arquivo, O programa original tomava 
automaticamente o primeiro campo pa- 
ra fazer a ordcnagjlo alfanum^rica dos 
registros. Com a possibilidade de trocai 
esse campo, ficard fdcil, por exemplo, 
organizar por autor um arquivo de li- 
vros que estava indexado por t(tulo da 
obra. A operac3o pode ser revertida a 
qualquer momento. O novo campo- 
chave apareceri cm primeiro lugar na 
listagem dos campos. 

105 LOCATE 9.19:PBINT"B:-RE0RGA 

NIZAR O ARQUIVO" 

110 LOCATE 14.22:PBINT"0PCRCi: " 

I 

120 INS-INKEYS:IF 1N$<-1 'OflIN$> 

"8"THEN120 

150 ON IN GOSUB 1000,2000,6000, 

5 000,7000,8000,9000,11000 

11000 IF A-1 THEN PRINT : PRINT" I 

MPOSSfVEL REORGANIZAR APENAB 1 

CAMPO! "JFOB K*l TO 5000;NEXT!RE 

TURN 

11010 PB1NT:PRINT"CAMP0 N.","N0 

HE " * PRlMT 

11020 FOB N-1 TO A:PBINTN,NS(N) 

:NEXT 

11030 PRINT !PRINT"DIGITE NOME 

RO DO NOVO CAMPO CHAWE" ; PRINT" C 

2 A" ;As ") " i : INPUT NC 
11040 IF NC<2 OH NOA THEN CLS : 
GOTO 10010 
11050 CLS!LOCATE7,18!PBINT"BEOR 




Como modlflcar o programa paraf tra- 
balhar com arqulvos am disco? 

Os micros das linhas TRS-Colof e 
MSX podem usar discos fiexfveis co- 
mo meio magnStico de armazenamen- 
to de dados. Os programas de INPUT, 
contudo, destinsm-sa a equipamentos 
que utilizam fitas cassete. 

Se qutsermos usar em discos nos- 
so programa para gerar a controlar ar- 
qulvos, precisaremos modlficsr as se- 
C0as que abrem estes arquivos e as que 
gravam a recuperam dados deles. 
procedimanto 6 necessdrio porque o 
programa ngo modifica registros IsoJa- 
dos no arquivo gravado, a sim na me- 
mflria do computador. Um conjunto de 
registros 6 criado na memfiria e, da- 
-pois, gravado na fita. Quando quere- 
mos alterar elgume coisa, todo o bio- 
co i trazido pera a membria, onde o 
programa faz a edigSo. Depois qua o 
processo se completa, gravamos o blo- 
co em fita. 

Para fazer sssas madificagfies, o 
usu^rio precisa, naturalmente, conhe- 
cer OS comandos correspondentes pa- 
ra manipulacio de arquivos em disco. 
Estes deverSo ser do tipo sequencial, 
como OS da fita. 



OANIZANDO E REOBDENANDO' ; PRINT : 
PBINTTABdS) "0 ARQUIVO" 
11060 SWAP Nfltl) ,NS(NC) :SUAP A( 
1) ,A(NC) 

11070 FOB N-I TO NRrSWAP A9(N,1 
] ,A9(N,NC) :NEXT 
11080 FOB N-1 TO NR-1:K-N 
11090 FOB J-N+1 TO NR 
11100 IF A3CJ,1)<A$(K,1) THEN K 
-J 

11110 NEXT: IF NOK THEN FOR C-1 
TO A;3MAP AS{K,C) A3(N,C):NEXT 
11120 NEXT:BETURN 



BUSCA DE MULTIPLAS INFOflMACOES 



Com a rotina dad a a seguir voce terd 
a alternativa de procurar por mais de 
uma informa?ao de cada vez. Quando 
selecionar a op?So de busca, voce preci- 
sard especificar as informa*;6es que dese- 
ja em cada campo do registro. Se um de- 
terminado campo nao Ihe interessa, sim- 
plesmente teck <RETURN> . Depois, 
o computador perguntard se os dados 
especificados devem estar simultanea- 
mente em cada registro ou nSo. A rcs- 
posta afirmativa corresponde a um E na 



busca — ou seja, o registro deve center 
isto E isto E aquilo. O contrario corres- 
ponde a um OL . Vejamos um exemplo. 
Voce procura por MACHADO DE AS- 
SIS no campo AUTOR e ROMANCE 
no campo GENERO LITERARIO. Se 
sua resposta para a pergunta anterior for 
SIM, apenas os romances de Machado 
de Assis serao lisiados. Se sua resposta 
for NAO, todos os livros de Machado e 
todos OS romances serao listados. 

5OO0 PRINT-BUSCA DE INFOBHACOES 

5010 BT-0: PRINT: FOR N-1 TO A:PB 

INT-PHOCUHAR O QUE EM "!N5(N)i" 

? "i :SS(N)-"" 

5020 LINErNPUTS3(N) :IF SS(N)<>" 

• THEN BT=BT+1 

5025 NEXT: IF BT=0 THEN BETURN 

5027 IF BT^i THEN BT=0'.GOTO 506 



5030 PRINT r PRINT :PRINT"TODOS OS 

DADOS DEVEM ESTAH PRE3ENTES 

SIMULTANEAMENTE? "i 
5040 INS = INKEV$tIF INSO'S" AND 

INS<>"N" THEN 5040 
5050 CLS:BT-0:IF INS^'S" THEN B 
T=l 

5090 FOB Z=-I TO Ar PS = INSTR (AS (D 
,Z) ,SS(Z)3 :IF PS>0 AND BT-0 AND 

SS{2)<>"" THEN Z=A:NEXT:aOTO 5 
100 

5093 IF PS-0 AND BT-1 THEN Z"A: 
NEXT : D=D+CH : GOTO 5 070 
5096 NEXT: IF BT=0 THEN D=D+CH:G 
OTO 50 70 

5230 CLS: LOCATE 5 . 10 : PR 1 NT"NENH 
UM REOISTRO COM " ; ; IF BT=1 THEN 

PRINT"TODOS OS" ELSE PBINT"ALG 
UM DOS" 

5235 PflINT"F01 ENCONTRADO T' :CP- 




[£ 



Para o Apple II, temos qualro reti- 
nas. As tres primeiras possibilitam a im- 
pressao continua de registros, a reorga- 
niza?ao do seu arquivo e a busca de va- 
rias informa(;oes ao mesmo tempo. A 
ultima delas melhora rotinas jd existen- 
tes no programa, tornando-o, desse mo- 
do, mais completo. 



IMPRESSAO CONTINUA 



I 

I 

1 



Esta pequena rotina permite que os 
registros sejam listados era seqiiencia, e 
Tiao apenas um de cada vez. Deixe na te- 
la o primeiro registro a ser impresso e 
escolha a op*;ao de impressao. Em se- 
guida, tecle C para a impressao conti- 
nua. Todos OS registros, a partir do que 
esta na tela, serao listados. Para a lista- 
gem de todo o arquivo, deixe o registro 
1 na tela e proceda como foi explicado. 

10017 UTAB 23: HTAB 5: CALL - 
958: PRINT "IMPRESSAO " ; : INVE 

RSE : PRINT "C" ; : NORMAL : PRIN 

T 'ONTINUA OU " ; : INVERSE ; PHI 

NT "H";: NORMAL : PRINT "EGISTR 

O 7" ; 

lOOlB GET INS: IF INS < > "C* 
AND IN3 < > "H" THEN 10018 

10025 IF INS = "C" THEN E - D: 
FOR D = E TO NR 

10052 IF INS - "C" THEN NEXT 

:D = E 




REORGANIZACAO DO ARQUIVO 



O programa original usava o primei- 
ro campo do arquivo como campo- 
chave para a ordena9ao dos registros. 
Com esta rotina, voc§ podera trocar o 
campo. Selecione a op?ao 8 a partir do 
menu principal e especifique qua! o no- 
vo campo-chave. O arquivo serd, entio, 
reordenado de acordo com a escolha fei- 
ta. O novo campo-chave aparecerd no 
topo da lista de campos. 



105 PRINT : HTAB 10: PRINT "8: 

-REORGAWrZAR ARQUIUO" 

110 UTAB 23: HTAB 15: PHINt "O 

PCAO : " J 

130 if' INS < "1" OR INS > "8" 

THEN 110 

150 ON IN GOSUB 1000,2000,6000 

.5000,7000,8000,6520,11500 



11500 IF A = 1 THEN VTAB 10: 
HTAB 9: PRINT "IMPOSSIUEL REORG 
ANIZAB": pHINT TAB ( 13)"APENAS 

1 CAMPO!": FOR K = 1 TO 3 000: 
NEXT : RETURN 

PRINT "CAMPO NO. 



11510 PHINT 
","MOHE" 
11520 FOR Z 
NS(ZJ : NEXT 
11530 PRINT 



1 TO A: PRINT Z, 



PRINT "DIGITE 



NUMEBO DO NOVO CAMPO CHAVE' 




PR 



(DE 2 A " ;A;")' 



INPUT NC 



> A 



INT 
t 

11540 IF (NCt C 2) OB (NCt 
] THEN HOME : GOTO 11510 
11550 HOME : VTAB 10: HTAB 8: 
PHINT "AGUAHDE A REORGAKIIZACAO 
": PRINT TAB( 9)"E OHDENACAO D 
ARQUIUO- 

11560 T3 = NS(l) :NS{1) " NS (NC* 
J:NS(NC*) = TS:T = A(1):A(1) - 
ACNC*) :A{NC«) - T 

1 TO NR : T3 = AS ( 
AS (N, NCt] :AS<N,N 



11570 FOR N 
N.l) :AS(N.1J 



T$: NEXT 
FOB N = 



FOB J 



Ct) 
115S0 
N 

11590 
11600 
H K - 
11610 
FOR C 
(K,C) 
EXT 
U620 NEXT 



1 TO NR 



1:K = 



N + 1 TO NR 



IF ASCJ,1) < ASCK, U THE 

NEXT : IF N C > K THEN 
» I TO A:T3 - A3{K,C):A3 
ASCN.C) ;AS{N,C) ■= T$ : N 

RETURN 



BUSCA DE MULTIPLAS INFORMACOES 



Esta e uma rotina destinada a agili- 
zar a consulta ao seu arquivo de dados, 
permitindo-lhe procurar por mais de 
uma informagao de cada vez. Quando 
voce solicitar a opi;ao de busca, preci- 
sari especificar as informa«;6es que de- 
seja em cada campo. Se um campo nao 
Ihe interessa, simplesmente tecle < EN- 
TER> . Depois, o computador pergun- 
tarA se os dados especificados devem es- 
tai simultaneamente em cada registro ou 
nio. A resposta afirmativa fard com que 
apenas os registros que contem todos os 
dados especificados sejam apresentados. 
A resposta negativa levari todo registro 
que contenha ao menos urn dos dados 
a ser listado. 

5000 DD = l!8T = 0: PRINT : FOR 
X = 1 TO A: PHINT : PRINT "PRO 
CUBAB OUE EM ";NS(.X); 
5010 INPUT 3S{X): IF SS(X) < 



> "" THEN BT = BT + 1 

5020 NEXT : IF BT -= THEN RE 

TURN 

5025 IF BT = I THEN BT = : GO 

TO 5040 

5030 VTAB 21: HTAB 1: PRINT "T 

ODOS OS DADOS DEVEM ESTAB PRESE 

NTES EM CADA HEGISTPO? (S/N> 

5035 GET INS: IF INS < > "S" 
AND INS < > 'N" THEN 5035 
5037 IF INS = "N" THEN BT = 
5040 VTAB 23: HTAB 13: PHIKT " 
PROCUHANDO - . . " ; 
5050 FOR XX = DD TO NR 
5052 FOR Z - 1 TO A: IF SS(Z) 
- -" THEN 5060 

5054 PS " (SS(Z) = LEFTS {AS CX 
X,Z), LEN {SS(Z)))): IF PS AND 
( NOT ST) THEN Z - A: NEXT : GO 
TO 5065 

5056 IF ( NOT PS) AND BT THEN 
2 = A: NEXT : NEXT : GOTO 50 70 
5060 NEXT : IF BT = THEN NE 
XT : GOTO 50 70 
5065 FL - 1:D = XX: GOSUB 6020: 

GOTO 5 200 
5070 IF FL = THEN VTAB 21: 
HTAB 1: CALL - 958: PHINT "NAO 

ENCONTREI NENHUM HEGlSTRO COM 
OS DADOS SOLICITADOS! " : FOR 

X = 1 TO 5000; NEXT : GOTO 509 


5090 FL - 0: RETURN 
5200 IF XX = NR THEN 5070 
5210 VTAB 15: PHINT "CONTIhfUO 
PROCURANDO? (S/N) ";: GET INS 



MELHORE AS ROTINAS EXISTENTES 



Estas linhas tornam seu programa de 
banco de dados mais completo. Com 
elas voce poderd especificar o slot e a 
unidade de disco que usara para a gra- 
vagao e o carregamcnto dos dados. A 
op^ao padrao e slot 6 e drive 1 . Um se- 
gundo drive podera ser acionado dire- 
tamente do programa. 

Alteramos ainda a rotina de detec^ao 
de erros. Ela estd mais exph'cita em re- 
laijao h nao existencia de um arquivo es- 
pecificado para a leitura de dados. E 
tambem mais equipada para prevenir 
que qualquer outro erro (a sele^ao de 
um drive que nao existe, por exemplo) 
inlerrompa seu programa e provoque a 
perda de dados. 

2 2 33 = 6:DH = 1 

25 ONERB GOTO 11000 

1030 IF R > THEN CLEAR : D3 

>= CHHS (1):TN =■ 1 : SS » 6 : DB = 

1: HOME : GOTO 150 

1050 VTAB 3: HTAB 5: PRINT "NU 

MERO DE CAMPOS {l-8> : ": 

1060 GET AS: IF AS > "8" OH AS 

< "1" THEN 1060 
1070 PRINT AS:A - VAL (AS): D 
IM A{A] ,NS{A) 
30] VTAB 23: CALL - 958: PHI 




NAO PERCA SEUS DADOS 
As vezes, por descuido ou erro de 
digitapao, o programa 6 interrompido 
por uma mensagem de erro. Se execu- 
tarmos o programa de novo, usando 
RUN, todas as vari^veis criadas pelo 
programa seraci apagadas. 

A sai'da para o problema esii em 
evitar o comando RUN e voltar a exe- 
cutar o programa de outro mode. 

Em geral, 6 possfve! encontrar um 
ponto onde o programa recomeqa co- 
mo se nada tivesse acontecido. Na 
maioria das vezes, este ponto corres- 
ponde ^ parte que cutda do menu. Pa- 
ra executar o programa novamente, 
bastara, entao, anotar o niimero da li- 
nha e usar □ comando GOTO. 



NT "NUMEHO DO CAMPO A SER MODIF 
ICADO ->" ; 

3020 GET CP$:CP » VAL ICPS) 
30.30 IF CP > A OH CP < 1 THEN 

POKE 34,0: RETURN 
7010 VTAB 15; HTAB 5: PRINT "3 
LOT ";SS; CHHS (8);: GET SSS : I 
F SSS = CHRS (13) THEN SSS = 
STR$ (SS) 

7015 PRINT SSS:SS = VAL (SSS) 
: IF SS < 1 OH SS > 7 THEN 7010 
7020 VTAB 17: HTAB 5: PHINT "D 
RJVE "iDRr CHHS (8);: GET DRS : 
IF DRS - CHR3 tl3) THEN DRS " 

STHS (DH) 
7022 PRINT DHSrDB = VAL (DBS) 
: IF DR < ) OR DH > 2 THEN 70 20 
7025 PRINT : PRINT DS;"OPEN";A 
R3i",S";S3!',D" ;DR: PHINT DSi'D 
ELETE" ;ARS 

8020 HOME : CLEAR : DS = CHHS 
(4) :IN = 5;SS = 6 : DR = 1 
8050 VTAB 15: HTAB 5: PRINT "S 
LOT "tSS; CHRS (8);: GET SSS: I 
F SSS - CHRS (13) THEN SSS = 
STHS (SS) 

8055 PHINT SSS:SS = VAL (SSS) 
: IF SS < 1 OH SS > 7 THEN 80.50 
8060 VTAB 17; HTAB 5: PRINT "D 
RIVE -;DH; CHRS (8);: GET DRS: 
IF DBS = CHBS (13) THEN DRS = 

STHS (DR) 
B065 PHINT DHS;DB = VAL (DRS) 
: IF DR < 1 OH DR > 2 THEN 6060 
8070 PRINT : PRINT DS!"OPEN"iA 
RSl'-S'sSSj-.D-jDH 
llOOO IF PEEK (222) < > 5 TH 
EN VTAB 24: HTAB 13: PHINT "80 
UVE UM ERRO'";: FOR I " 1 TO 10 
00: NEXT : GOTO 30 
11010 PHINT DS: "CLOSE" 
11020 VTAB 24; HTAB 8: PRINT " 
ESTE ARQUIVO NAO EXISTEl";: FOR 

I - 1 TO 1000: NEXT : HOME : G 
OTO 150 



71 
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APPLE ETK- 2000: 
EFEITOS SCNOIROS 



comando SOUND do TK-2000 tern 
cartas limitagdes. Jd o Apple nSo possui 
urn comando BASIC para produzir sons. 
Veja como usar c6digo de m^quina para 
criar af eitos sonoros , 



Os usuarios do Apple ressentem-se, 
sem diivida, da ausencia de um coman- 
do em BASIC para produzir sons. Essa 
limitagao pode ser contornada com o 
uso de rotinas em cddigo de m^quina. 

Estalidos ou "cliques" produzidos no 
alto-falante constituem o miximo que 
se pode obter com um programa BA- 
SIC, no Apple, em materia de som, Pa- 
ra isso (tanto no Apple quanto no 
TK-2000), basta que facamos referSncia 
k posifSo de memdria -16336 por meio 
de um comando PEEK: 

X - PEEK (-16.136) 

Quando testamos o valor desse ende- 
refo especial, o cone do alto-falantc se 
move — para dentro e para fora — uma 
vez. Se quisermos produzir notas musi- 
cals, precisaremos imprimir a esse mo- 
vimento uma velocidade que somente 
programas em linguagem de miquina 
permitera. Controlando a velocidade 
com que o cone do alto-falan:e se move 
para frente e para tris, podcremos con- 
trolar tamb^m a freqiJSncla da nota mu- 
sical ou do rufdo emitido. Quanto mais 
rdpido for o movimento do cone, mais 
agudo serd o som. 



COMO CONTROLAR ALTO FALANTE 



A rotina em Assembly fornecida a se- 
guir produz um som que vai se tornan- 
do cada vez mais agudo, Use nosso As- 
sembler para montd-la na mem6ria. 



5EE] 



t 



10 OflO 800 

20 LDA 1300 

30 3TA SFF 

40 LOOP LDA l$00 

50 STA $C030 

60 LDX SFF 

70 PAUSE NOP 

80 NOP 

90 NOP 

100 NOP 

110 DEX 

120 BNC PAU9E 

130 DEC SFF 

140 BEQ FIM 

150 JMP LOOP 

160 FIM RTS 

170 END 



[^ 



Os usuirios do TK.2000 podem re- 
correr ao mini-Assembler embutido no 
micro. mini- Assembler, contudo, nSo 
aceita r6tulos, seguindo outra listagem 
com OS endere?os '}& calculados. Ao con- 
tririo da listagem anterior, esta nSo e re- 
locivel na mem6ria. 



0320- 


LDA 


1900 


0322- 


STA 


SFF 


0324- 


LDA 


»S0O 



0326- 


STA 


SC030 








ms 


0329- 


LDX 


SFF 








Pa 


032B- 


NOP 










lin 


032C- 


NOP 










po 


032D- 


NOP 










032E- 


NOP 










ap 


032F- 


DEX 












0330- 


BNE 


S032B 








m< 


0332- 


DEC 


SFF 








he 


0334- 


BEQ 


30339 








to 


0336- 


JMP 


30324 








sej 


0339- 


RTS 








^ 


SI 


Se' 


I'oce usar 


nosso Assembler 


para 


fa 


montar o programa, veri 


que 


ele emite 


iss 
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COMO CONTROLAR 



ALTO-FALANTE 



OUSODECONTADORES 



___^ CQNTROLE 
DA FREQU^NCIA DA NOTA 



COMO USAR LACOS VAZIOS 

PARA PRODUZIR PAUSAS 

DE DIVERSOS fAMANHOS 

UMA ROTINA DE SOM 

PARA APPLE 



mensagens de erro durante a montagem. 
Para corrigir esse defeito, modifique a 
iinha 1 10: apague a segunda viVgula de- 
pois do NOP e acrescente uma virgula 
ap6s o niimero 234. 

Qualquer referenda k posi^ao de me- 
m6ria -16336 em decimal, ou $C030 em 
hexadecimal, provocari um movimen- 
to no alto-falante. Essa referencia pode 
ser feita por meio de comandos como 
STA, INC ou DEC. O importante, de 
fato, i controlar a frequencia com que 
isso ocorre no programa. 



USO DE CONTADORES 



A posi?ao de memoria $FF — que fi- 
ca na pdgina zero — vai ser usada co- 
mo contador. Para comefar, colocamos 
nela o valor zero, pelos comandos LDA 
#S00 e STA $FF. Depois, o comando 
STA SCOJO provoca'um primeiro mo- 
vimemo do alto-falante. Note que, an- 
tes disso, foi colocado zero no registro 
A. Na realidade, o valor transferido de 
A para o endere^o $C030 pelo coman- 




do STA SC030 pode ser quaiquer um: 
nSo faz a menor diferen?a. 

A seguir, a instrugao LDX IFF co- 
loca no registro X o conteudo da memo- 
ria SOOFF. Esse tipo de enderefamento 
e denominado enderegamenio direio em 
pdg'ma zero. Sua vantagem consisic em 
permitir a especificafJo de um endere- 
fo com apenas um byte. Como um byte 
pode center um niimero entre e 255, 
o enderc?o cspecificado deve ficar num 
dos primeiros 256 bytes da mem6ria — 
a chamada pdgina um. 

As quatro instru?6es NOP (Nenhu- 
ma OPera?ao) utiJizadas em seguida 
nada executam, Sua funijao t reduzir a 
veiocidade do programa. A instru^So 
DEX subtrai uma unidade do valor de 
X. Se o resukado da subtrapao nio for 
igual a zero, a instrufao B\E manda o 
processador de volta ao rditulo PAUSE. 
O lafo que fica entre as linhas 70 e 110 
6 repetido, cntao, 256 vezes — lembre- 
se de que zero menos um i igual a 255 
em linguagem de mdquina. 

Em seguida, a instru^ao DEC SFF 
subtrai uma unidade do conteiido do en- 
derefo SFF. Se a opera^io rcsuitar em 
zero, a instrufSo BEQ FIM envia o pro- 
cessador para o r6tulo FIM, onde o co- 
mando RTS termina a rotina. Sc a ope- 
ra^So nSo resuttar em zero, o programa 
segue seu curso natural e a instrugao 
JMP LOOP envia o processador ao r6- 
tulo LOOP, para a produfSo de um no- 
vo movimento do alto-falante. 

Assim, ap6s a emissSo do primeiro 
som, ocorre uma pausa equivalente a 
256 vokas do lago. O conteudo de SFF, 
que inicialmente i zero — equivalente 
a 256, em c6digo de miquina — , con- 
trola a dura^ao da pausa, diminuindo 
em uma unidade ap6s esta. Enquanto 
nio chegar a zero, um novo movimen- 
to do alto-falante serd produzido. Co- 
mo o conteudo de SFF, que controla o 
tamanho da pausa, diminui a cada vol- 
ta do \&go entre as iinhas 40 e 1 50, o ta- 
manho da pausa entre dois movimentos 
do alto-falante tambem diminui. Dessa 
maneira, a frequencia do som produzi- 
do vai aumentando, ou seja, o som vai 
se tornando cada vez mais agudo. 

No TK-2000, o som i produzido por 
interm^dio do alto-falante da TV. i& no 
Apple um dispositivo sonoro que esti 



m 
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embutido no proprio computador emi- 
te njido — e a qualidade do som dei- 
xa a desejar. 



A VEZ DO APPLE 



A rotina de produ9ao de ruidos que 
aprcsentamos a seguir pode ser utiliza- 
da a partir de programas BASIC, equi- 
valendo ao comando SOUND dos mi- 
cros da linha TK-20O0. 

Ela permite ao usuaiio do Apple pro- 
duzjr notas musicals em seus programas 
sem ter que programar uma rotina em 
iinguagem de maquina para cada novo 
efeito sonoro. 



B][S] 



10 OBG 800 
20 LDY tSOO 
30 POM LDX S38S 
40 INC SC030 
50 PAUSET DEY 
60 BNE PAUSES 
70 DEC 5384 
80 BEQ FIM 
90 PAUSES DEX 
100 BNE PAUSET 
110 JMP SOM 
120 FIH RTS 



m 



Embora o TK-2000 dispense esse ti- 
po de roiina, seus usudrios podem que- 
rer moma-la para aprender ou, simples- 
mente, compard-la ao comando 
SOUND, 



0320- 


LDY 


#300 


0322- 


LDX 


SO 385 


0325- 


INC 


SC030 


0328- 


DEY 




0329- 


BNE 


$0330 


032B- 


DEC 


$0384 


032E- 


BEQ 


S0336 


0330- 


DEX 




0331- 


BNE 


30328 




MINIASSEMBLER 

mfni-Assembler 6 um programa As- 
sembler simplificado, mas extremamen- 
te util. Efe estd disponfvel no TK-2000 
bem como em microcomputadores Ap- 
ple que tenham o INTEGER BASIC dis- 
ponfvel em ROM ou numa placa de ex- 
pansao de memdria. Sua principal limi- 
tagao 6 nao aceitar rdtulos. 



0333- 
0336- 



JMP 
BTS 



90322 



Ap6s a definicao do enderepo inicial. 
o comando LDY #$00 coloca zero no 
registro Y, que sera uliijzado como con- 
tador. Nao se esquepa de que zero equi- 
vale a 256. 

O enderet^o $385 conterd a tonalida- 
de da nota emitida — em ouiras pala- 
vras, seu valor vai estabelecer o tama- 
nho de um lago de pausa para contro- 
lar a freqiJencia do movimento do alto- 
falantc. Assim, o conteiido dessa posi- 
9ao i colocado em X, que tamb^m sera 
usado como contador. 

A instru?ao INC $C030 produz um 
movimento do alto-falanle. A seguir, o 
programa apresenta um lafo complexo, 
controlado por tres coniadores. Estes es- 
tabelecem tanto a freqiiencia quanto a 
duracao do som emitido. Vejamos, en- 
tao, como o ]a?o funciona. 

Inicialmente, a instrufao DEY, na Li- 
nha 50, subtrai uma unidade do comeu- 
do de Y. A instru?ao seguinte — BNE 
PAUSES — faz com que o programa 
salte para a Linha 90, enquanto o valor 
em Y nao for reduzido a zero. A linha 
90, por sua vez, contem uma instrufao 
D£X, que diminui o conteudo de X em 
uma unidade. De maneira analoga, es- 
sa instru9ao e seguida por um BNE 
PAUSET, que retorna a linha 50 en- 
quanto valor de X nao ctiegar a zero. 
Assim, o processador fica "preso" em 
um la^o, saindo apenas quando o con- 
teiido de X ou Y for zero. 

Os contadores trabalham indepen- 
dentemenie, Quando o valor de X se 
torna zero, o processador passa para a 
linha 110, que retorna ao r6tulo SOM 
(JMP SOM), onde o valor de $385 (to- 
nalidade) e recolocado em X e se pro- 
duz um novo movimento do alto- 
falante. Assim, o valor iniciaJ de X de- 
termina o tamanho da pausa entre dois 
niidos, independenlemente do que acon- 
tece com Y. 

O registro Y continha inicialmente o 
numero 256 — ou zero. Portanto, ap6s 
256 passagens pela linha 50, o valor de 
Y se torna zero, e o desvio da linha 60 
nao ocorre. O programa, entao, pros- 
segue na linha 70 — DEC $384 — , que 
diminui em uma unidade o valor em 
$384 (contador que controla a dura^ao 
da nota), Assim, independentemente do 
que acontece com X, a cada 256 voltas 
do lago principal, o enderepo $384 i di- 
minuido. Quando ele se torna zero, a li- 
nha 80 — BEQ FIM — envia o proces- 
sador para a linha 120, onde o coman- 
do RTS retorna ao BASIC. O valor ini- 
cialmente colocado em $0384 controla, 
dessa maneira, a dura^ao da nota. 




Como usar o monitor-Disassembier? 

Uma ferramenta muito util aos usuS 
rios do Apple, e indispens^vel aos do 
TK-2000, 6 monitor-Disassembler. 
Embora nSo precisemos de monitor pa- 
ra montar os programas c6digo por c6- 
digo, ele nos permitirS verificar se a 
montagem foi bem-sucedida. 

Para entrar no monitor, digite: 

CALL -151 

OU LM no TK 2000. 

Para listar um programa que come- 
ce no enderepo 800, digite (apds ter 
entrado no monitor): 

320L 



Agora voce pode produzjr sons em 
programas BASIC. Para ter uma idda 
de como proceder, digite este exempio: 



[A 


list] 








10 


ron s = 1 TO 


255 


20 


POKE 


900 


50 




30 


POKE 


901 


S 




40 


CALL 


800 






50 


NEXT 









O programa consiste em um lapo, on- 
de S tem a fun^ao de controlar a fre- 
qiiSncia da nota — de fato, S e propor- 
cional ao periodo da nota, que e o in- 
verso da freqiiencia, 

O endere^o 900, que corresponde a 
J384 em hexadecimal, contem a dura- 
(;ao da nota, A linha 20 estabelece esse 
parametro por meio de um POKE. A 
mesma instrugao i usada na linha 30 pa- 
ra definir a tonalidade S da nota. O nu- 
mero 901 em decimal corresponde a 
$385 em hexadecimal. 

Final mente, a instrugao CALL 800 
chama a rotina em c<5digo, produzindo 
notas cada vez mais graves a medida que 
as voltas do la?o se sucedem. 



E] 



Os usuirios do TK-2000 podem cora- 
parar a rotina em c6digo com o coman- 
do SOUND apagando as linhas de 20 a 
40 e acrescentando: 

30 SOUND S,50 
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Conhaya os comandos que permitem 
ao computador "olhar" sua prdpria tela. 
Eles sao muito uteis na manipula^ao 
de gr^ficos complicados e, sobretudo, 
em jogos onde ocorrem colisdes. 



Ao criar uma tela grifica detalhada. 
como garantir que uma figura nao coin- 
cida com outra jd presence? 

Uma altemativa seria tomar nota das 
Areas da tela que estio sendo ocupadas. 
Mas a tarefa, aldm de fatigante, muitas 
vcics 6 impossfvel — como no caso de 



gr^ficos em movimento. E esse tipo de 
problema se coloca sempre que progra- 
mamos um jogo, onde, por exemplo, 
naves e alienigenas movem-se pela ga- 
lixia ou robos tentam sair de um labi- 
nnto, Nos dois casos, precisamos nos 
assegurar de que duas figuras nao serao 
desenhadas no mesmo lugar ou que al- 
go especial aconteceri se elas colidirem 
— uma explosao, digamos. 



COMO DETECTAR UMA FIGURA 



Suponhamos que vocS queira escre- 
ver um programa no qual uma bola fi- 



que batendo nas bordas da tela. Nao se- 
ri dificil: conhecendo coordenadas dos 
quatro iados da tela, bastard incluir um 
teste de condigao rF.,.THEN para veri- 
ficar se a bola esta ou nao batendo na 
borda. Para isso, as coordenadas da bo- 
la sao comparadas com as coordenadas 
jd conhecidas das bordas. Mas o que 
aconteceria se quis^ssemos checar se a 
bola bateu na borda de um objeto cuja 
forma € mais complicada — um circu- 
lo, por exemplo? 

Poderiamos usar o mesmo m^todo: 
um certo niimero de rF.,,THEN, con- 
tendo informacoes sobrc as coordena- 
das do cfrculo, verificaria se a bola ba- 



teu na borda deste. A forma curvilinea 
^ relativamente mais complexa e, por is- 
so, precisariamos fazer muitos testes. 
Como sabemos, o computador demora 
para realizar urn teste IF... THEN. As- 
sim, um programa cheio deles se torna- 
ria extremamente iento. 

Existe um limite de velocsdade de exe- 
cucao num programa em BASIC, mas o 
Spectrum, o MSX, o TK-2000, o Apple 
e o TRS-Color possuem um comando 
que permite detectar qualquer objeto na 
tela mais rapidamente do que pela che- 
cagem de suas coordenadas — mesmo 
que nao conheijamos sua posiipao. 



A COR PELO NUMEflO 



Os comandos ATTR no Spectrum, 
SCRN no Apple e o POINT ou 
PPOINT no TRS-Color e no MSX de- 

volvem, como resposta, a cor que esta 
localizada em uma determinada posl(;ao 
{ou pixel, como 6 o caso do PPOINT no 
TRS-Color). Dessa maneira, para detec- 
tar a presemja de qualquer objeto, bas- 
ta atribuir-lhe uma cor e, depois, veri- 
ficar todas as posi<;6es de tela. 

No exemplo da bola, o circulo ver- 
melho devolveria o niimero (c6digo} re- 
lacionado a cor vermelha em todas as 
posifoes que aparecesse. Por meio da 
simples verificacao desse c6digo, pode- 
riamos, por exemplo, fazer a bola ba- 
ter no circulo e voltar. 

O Spectrum devolve um niimero en- 
tre e 255, levando em conta todos os 
ATTR (atributos) de cada posigao de te- 
la: as cores do PAPER e INK, se o 
BRIGHT esti ligado ou nao, e se o ca- 
ractere se encontra sob a a^ao do co- 
mando FLASH. Os significados dos nu- 
meros nos atributos de cada posigao da 
tela foram explicados na p^gina 47, 

O comando SCRN no Apple retorna 
um valor de a 15, correspondente a 
uma cor da letra grifica. Se obtivermos 
o numero 13, por exemplo, para uma 
certa posi?ao de tela, saberemos que na- 
quela posipao existe um caractere ama- 
relo, pois 13 e o c6digo estabelecido pa- 
ra a cor amarela. 

O comando POINT no MSX devol- 
ve um numero entre e 16, correspon- 
dente a cor de um dos 256x192 pontos 
de sua tela. Este comando funciona 
igualmenie bem tanto em alta quanto 
em faaixa resoiu^ao grafica. 

O TRS-Color retorna um numero en- 
tre -1 e 8, que se relaciona com a cor da 
posi^ao de tela (ou pixel, para o caso do 
comando PPOINT). Obtemos o curio- 
so resultado de -1 quando tentamos ve- 
rificar a cor de uma letra: o texto so po- 
de ser verde ou preto (e a cor preta ^, 



justamente, o inverso da verde). 

A sintaxe de cada um desses coman- 
dos e basicamente a mesma. Em todos 
files, as coordenadas das posigoes de te- 
la devem vir sempre entre parenteses. A 
linica diferenga e que, no ATTR do 
Spectrum, a coordenada Y aparece an- 
tes da X. Um exemplo seria: 

PRINT ATTR (10, 20} 

onde 10 6a coordenada Y e 20 ^ a coor- 
denada X da posi9ao de tela cuja cor 
quercmos saber. 

Nos demais microcomputadores a or- 
dem das coordenadas e a usual, ou se- 
ja, primeiro aparece a coordenada X e 
depois a Y. Para as mesmas coordena- 
das do exemplo anterior, teriamos: 

PftlrJT SCBNC20,10) 

para o Apple e 

PRINT POINT{20,10) 

para o MSX e o TRS-Color, O Spec- 
trum possui um arquivo de atributos ao 
qual podemos fornecer, via comando 
POKE, diferentes valores — e, portan- 
to, alterar o estado de certa posifao de 
tela. H o TRS-Color nao tern um arqui- 
vo de cores separado, mas podemos mu- 
dar sua tela pela impressao (PRINT) de 
caracteres de outras cores. 

Como exemplo do uso dos comandos 
ATTR, SCRN e POINT, digite e rode 
o seguinte programa: 



PAPER : INK 9 



10 BOBDES 

15 cr..s 

20 FOB n-22528 TO 22 
n,48: POKE n+672,48: 
30 FOR n-22560 TO 23 
32 r POKE n , 48 : POKE 
NEXT n 

40 FOR n-1 TO 30: PR 
PAPER 6; AT INT (BND* 
INT CRND*13)*Z+3;- " 
50 LET x-15i LET y-1 
--1; LET yv-1 
80 PBINT AT y 
: LET OK-^K 

90 LET x-x+nv: LET y 
140 IF ATTR {y,x-l)=4 
fy,R+l)-48 THEN LET 
145 IF ATTR {y-l,x)-4 
(y+l,X>-48 THEN LET 
190 PRINT AT oy.ox;" 
80 



559: POKE 

NEXT n 
168 STEP 
n+.11.48; 

INT 

9)*2+3. 
: NEXT n 
0; LET XV 



Xi "O" : LET OY=y 



-y+yv 
B OR ATTR 
XV --XV 
8 OH ATTR 
yv--yv 
- : GOTO 



O display do Spectrum ocupa toda a 
tela: e um quadrado de bordas amare- 
las, contendo uma serie de blocos tara- 
b^m amareios impressos aleatoriamen- 
te. Ao rodar o programa, o computa- 
dor come^a a movimentar a bola diago- 
nalmente. para baixo e para a esquer- 



da. Quando bate nas bordas ou em um 
dos biocos, ela volta, mas em outra 
dire^ao. 



COMO DETECTAR COUSOES 



Cabe ao comando ATTR verificar se 
a bola bateu nas bordas ou em algum 
dos blocos. Como estes sao posiciona- 
dos aleatoriamente na tela, so teriamos 
uma outra alternativa: guardar em va- 
riaveis as posi^oes dos blocos em rela- 
gao is coordenadas X e Y. Se usassemos 
duas vari^veis para cada posicao, ocu- 
pariamos grande quantidade de iTiem6- 
ria. Alem disso, precisariamos incluir 
muitas verificagoes IT... THEN no pro- 
grama, tornando-o muiio lento. 

Nao enfrentariamos os mesmos pro- 
blemas se uttliz^ssemos IF... THEN pa- 
ra verificar se a bola bateu nas bordas, 
ja que suas coordenadas sao facilmente 
calculadas. Mas, como recorreraos ao 
comando ATTR para checar se a bola 
estd batendo num bloco amarelo, e mais 
conveniente usa-lo tambem para as bor- 
das, especialmente porque estas tern a 
mesma cor dos blocos, 

O programa comega definindo as co- 
res da tela e criando a moldura amare- 
la. As linhas 20 e 30, responsaveis pela 
moldura, inserem valores diretamente 
no arquivo de atributos, em vez de im- 
primirem espapos ou caracteres vazios, 
Dois lacos FOR.. .NEXT percorrem os 
enderegos de memdria que contem os 
atributos para posi?6es ao redor da te- 
la. Cada enderego recebe, via comando 
POKE, o numero 48, que e o codigo pa- 
ra PAPER amarelo e INK preto (com 
BRIGHT e FLASH desligados). 

A linha 40 imprime blocos aleatoria- 
mente (desta vez, espagos). Os mimeros 
randomicos que controlam a disposi^ao 
dos blocos sao projetados de maneira 
que pelo mcnos duas posicoes de tela os 
separem da borda (para se evitar que al- 
gum bloco seja desperdigado, caindo na 
moldura), 

A linha 50 estabelece o valor inicial 
de algumas variaveis — s e y para a po- 
sigao inicial da bola, e xv e yv para a di- 
regao inicial da bola nas coordenadas X 
e Y, respectivamente. 

Em seguida, o computador salta pa- 
ra a linha 80, onde imprime a bola e de- 
fine mais duas variaveis: ox e oy, que 
guardara os valores anteriores de x e y. 
Esses valores sao usados para apagar a 
bola, uma vez que x e y ja foram atuali- 
zados pelos cAlculos que determinam o 
movimento da bola. 

A linha 90 efetua os calculos, soman- 
do OS vetores de diregao, determinados 
pelas variiveis xv e yv, is respectivas 
coordenadas x e y. 




Display do Speclrum: os blocos sao distribuidos aleatoriamente 
dentro de unia moldurii quadrada. 



Display dii TRS'Color: apresenta cantoii diagonals coloridos; 
a di^tribui^ao dos blocas nao e aleal6ria. 



USO DO ATTB 



As linhas 1.40 e 145 sao as mais im- 
portantes, ja que execuiam a verificapao 
da cor dos quairo quadrados que cercam 
a bola. 

Como se ve no programa, a fyngao 
ATTR assume a seguinte forma: 

ATTR {coordenada y, coordenada x) 

Mas este nao 6 um comando direto 
— como PRINT e LOAD, por exemplo 
— , devendo sempre vir embulido em 
outro comando (no nosso caso, uma de- 
clara(;ao IF.. .THEN), 

Em ambas as linhas existem declara- 
coes LET logo ap6s as condigoes. Elas 
simplesmente revertem o vetor de velo- 
cidade se o quad rad o com o qual a bola 
bateu for amarelo (ATTR - 48 represen- 
la um quadrado amarelo). 

Na pratica, a bola bate no quadra- 
do e volta num angulo diferente de 90" . 
Ela deve estar vindo de cima ou de bai- 
xo (na diregao y) ou de um dos lados 
do obstaculo (na dire^ao x) no momen- 
to em que o atinge. Se ambos os veto- 
res de velocidade fossem revertidos, a 
bola simplesmente voltaria pelo mesmo 
caminho. Por isso, a verifica^ao s6 al- 
tera sen movimento na dtre<;ao em que 
ela bate. Sua velocidade na outra dire- 
fao (aquela em que ela nao bateu em na- 
da) continua sendo a mesma. Assim, 
se a bola est^ prestes a atingir um blo- 
co amarelo logo abaixo, ela come^a a 
se movimentar para cima, mas sua ve- 
locidade horizontal (na diregao x) nao 
e afetada. 

Depois de realizar duas verificagoes, 



o Spectrum apaga a bola "veiha", 
sobrepondo-acom um espa^o vazio (li- 
nha 190), e volta para a Unha 80 para 
continuar o movimento. 



a 

10 CL90 

20 PRINT STRINGS (32, 223) ; ;PRIHT 

9448.STniNGS(32.223} ; 
30 FOR K-1 TO 7: PRINT e32*K.CHB 
SC223)+STRING$(7'K.l91) ; 
40 PRINT «32«K+24+K, STRINGS (7-K 
,175)+CHR3(223) ; 

50 PRINT i448-32*K,CHHS(223)+ST 
RINGS (7-K, 175) ; :PRINT M48-32«K 
+24+K, STRINGS C7-K, 191 )+CHRS (223 
) : 

60 NEXT 

70 FOR K-1 TO 16: READ A, B: POKE 
ia24+A,B:NEXT 

80 DATA 137.143,114,159.111,159 
.112,159,113,159,150.255,118,25 
5,203,239,276,239,296,255,264.2 
55 , 366 . 159 . 367 , 159, 368 . 159 , 365 , 
159.406,143 

90 X-32:Y-16:VX-2-HND<39)/10:UY 
-2-RND{39)/lO 
100 8ET(X,Y,5) 

110 P1"P0INT(X+VX,V+VV) :P2-P0IN 
T{X+VX,ir) :P3-P0INTCX,y+VY) :IF P 
1-0 AND P2-0 AND P3-0 THEN 190 
120 IF P2-0 AND P3-0 THEN 160 
130 IF P2>0 THEN yX--VX:IF P2<4 
THKM VX JVX'S(iN(UX)*BND(0) ELSE 
IF P2>3THENVX-UXISGNtVX)*ttNDC0) 
140 IF P3>0 THEN VY— UY:IF P3<4 
THEN WY-VY-SGNCVY)*RNDCO) ELSE 
IF P2>3THEHUY-UY+SGN(VY) *RND(0> 
150 GOTO 190 
160 VX— WX:VY--UY 
170 IF PY>3 THEN VX-VX+SGN(VX) * 
UND(0} :VY-UY+SGNCVY) *RND(0) 
180 IF PK4 THEN VX-UX-SGN(VX) * 
RNDCO) :UY-VY-SGN{VY)*RND(0> 



190 IF ABSfVXXl THENVX"3GN(VX) 

200 IF ABS(VX)>2 THEN VX-2*SGNt 

VX) 

210 IF ABS(VYJ<1THEN UY-StaKUY) 

220 IF ABS(UY)>2 THEN Wy-2*SGN ( 

VY) 

230 RESET (X.Y) :X-X+VX:Y-Y+vy 

240 GOTO 100 

O programa do TRS-Color exempli- 
fica bem a utilidade do comando 
POINT. O display que aparece na tela 
desse computador e um pouco diferen- 
te daquele que aparece nos outros. Ele 
nao contem blocos espalhados aleatoria- 
mente, mas camos diagonals coloridos. 
Usar variiveis para checar se a bola es- 
td batendo em algum desses cantos se- 
ria complicado e deixaria o programa 
muito lento. E, considerando que pre- 
cisariamos ainda adicionar varies 
IF... THEN para detectar colisoes da bo- 
la com algum dos blocos no meio da te- 
la, podemos concluir que tal processo e 
praticamente inviavel. 



VERIFICANDO MAIS DE UMA COR 



O POINT permite a detecgao de tres 
quadrados ao redor da bola com pou- 
cas linhas de programa. E. se escother- 
mos cuidadosamente as cores, podere- 
mos fazer a verificagao de varias delas 
com apenas duas checagens. 

O programa come^a limpando a tela 
com um fundo preto e colocando os 
cantos, dois vermelhos e dois azuis (li- 
nhas 10 a 60). A linha 70 le os dados dos 
blocos restantes (linha 80) e os imprirae 
com POKJE. Usando esse comando, em 
vez de PRINT, economizamos umas 
quatro linhas de programa. 



WGRAMACAOBASK S9 



A linha 90 dctermina as coordenadas 
iniciais da bola, x e y, e tamWm as ve- 
locidades iniciais xv e jt — que, na vcr- 
dade, sSo componentes do vetor de ve- 
locidade nas dire^des X e Y, respectiva- 
mcnte. A bola, representada por um 
ponto de baixa resolu^So, i entSo im- 
pressa nas posicSes x e y. 

Para a checagem das cores, defiaem- 
sc trSs variiveis (linha 1 10): PI, para o 
quadrado diagonalmente k frente da bo- 
la {quaiquer que scja a dire?3o era que 
efa esteja se movimentando), e P2 e P3, 
para os quadrados nas posigSes x e y se- 
guintcs. Partindo do principio scgundo 
o qual nto i necessSrio que sejam chc- 
cados quadrados das direeSes em que a 
bola nto se movimenta, conclufmos que 
esses trSs testes jd stio suficientes. 



USO DO POINT 



Como podemos ver na linha MO, o 
comando POINT toma a seguime 
forma: 

POINT (coordenada x, coordenada y) 

Essa linha tambem ^ incumbida de 
verificar se os trSs quadrados sSo pre- 
tos (cor de niimero 0, que tambim h a 
cor de fundo). Em caso afirmativo, o 
computador vai para a linha 1 90, saltan- 
do OS testes de reflexao, pois a bola nao 
esta batendo em nada, 

Se as priximas posifdes x e y (dire- 
(;6es horizontal e vertical, respectiva- 
mente) forem pretas, mas a diagonal se- 
guime nao, a bola precisari voltar exa- 
tamente na mesma direfao de que veio. 
Assim, o computador salta para a linha 
160, que cont^m os procedimentos ne- 
cessiirios para esse caso especial de co- 
lisao diagonal . Os dois vetores de velo 



cidade (na direpSo x e na dire^io y) s3o 

invertidos, fazendo com que a bola re- 
troceda. 

As linhas seguintes tambdm alteram 
a velocidade da bola, de acordo com a 
cor em que ela bate. 

Se nenhum dos testes executados atiS 
a linha 130 for verdadciro, a bola deve 
estar atingindo algum objeto (seja ete 
um canto, seja ele um bloco) pclas late- 
rals. A linha 130 verifica se o quadrado 
atingido estS na horizontal (lados direi- 
to ou esquerdo) e, constatando que sira, 
inverte o vetor relevante da velocidade. 
O vetor relevante t oposto ao eixo de co- 
lisao — portanto, no nosso exemplo, o 
vetor y i invertido. Em seguida, o com- 
putador efetua o teste a fim de idemifi- 
car a cor do quadrado atingido, 



ACELERACAO DA BOLA 



Os numeros 1 , 2 c 3 correspondem ao 
verde, ao amarelo e ao azul. Se a cor 
do quadrado atingido for uma destas, 
a velocidade serd diminuida; se for ver- 
melho, cinza, ciano, magenta ou laran- 
ja (niimero maior que 3), a bola serd, 
entSo, acelerada, 

A vantagem de se escolher as cores 
(ou categoria de cores) com cuidado ^ 
evidente. Eias se agrupam em duas ca- 
tegorias: uma que causa diminuifao de 
velocidade (1, 2 e 3) e outra que causa 
aumento (4 a 8). Ao selecionar nume- 
ros pr6ximos em cada categoria, dimi- 
nutmos a quantidade de comandos 
IT... THEN, economizamos memdria e 
agilizamos o programa. 

A linha 140 faz basicamente a mes- 
ma coisa que a 130, s6 que efetua a che- 



cagem na vertical, Dcpois, o computa- 
dor salta para a linha 190, onde se ini- 
cia a rotina que verifica o valor da ve- 
locidade. Se esta for malor que 2, 
obtdm-sc um estranho cfeiio na tela, 
pois, para simular movimento, o com- 
putador salta sobre um quadrado. Um 
salto muito grande pode, eventualmcn- 
te, fazer a bola ultrapassar um bloco co- 
lorido sem o perceber. Dai a importSn- 
cia da rotina que checa a velocidade. 

O mesmo tipo de problema aconte- 
ceria com uma velocidade menor que I; 
mas um outro teste cuida disto. Obser- 
ve que todos os valores estio em m6du- 
lo (ABS), ou seja, seus sinais sSo igno- 
rados. Embora -1 seja menor que 1, a 
magnitude da velocidade h a mesma pa- 
ra ambos os valores — o sinal menos in- 
dica que o sentido 6 contr^rio. ABS 
simplesmente elimina o sjnai antes de 
testar o valor da velocidade. 

A linha seguinte, isto i, a 230, airi- 
bui h. bola a cor de fundo, apagando, as- 
sim, sua ultima posi?ao. Depois, o pro- 
grama atualiza a velocidade da bola e 
manda o computador de volta para a li- 
nha 100. Esta dd continuidade ao mo- 
vimento da bola. 
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3:C0L0B 15 , 1 , 3 r B-RND( 



10 SCtlEEN 

-TIME) 

20 LINE (O,96)-(96,0) .6:PAINT ( 

0.0) ,6 

30 LINE {255,96)-(160.191),6:PA 

JNT (255,191) ,6 

40 LINE C0.96)-(95,191) .4:PAINT 

to, 191) .4 
50 LINE (2S5,96)-(158,0) ,4:PAIM 
T (255,0), 4 

60 LINE (0,0)-{255.0) ,3:LINE-(2 
55,191) ,3:LINE-{0,191) ,3: LINE- ( 
0,0) .3 

70 FOR I-l TO 8:BEAD Xl,Tfl,X2,y 
2,C:LINE (XI , YD - CX2 .X2) ,C .BF :N 
EXT 

80 DATA 130,30,160.45,11,100,17 
, 1 30 . 1 55 , 11 , BO , 30 , 95 , 65 , 2 , 1 70 , 
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135, IBO, 160, 2,90,90, 100, 12 0,13. 

150,80.160,110,13,60,100.70,140 

,9,190,55,200,95,9 

90 X-120+16*HND{13 !Y-90+16*HND( 

1) :VX-4*f-l)"INT(J0*HND{l) ) :VY- 

4«(-l) -INT(10*RND{1)) 

100 PSET(X,y) 

110 Pl-POINT(X+UX,Y+VTr) :P2-P0IN 

T(X+VX,lt} :P3"P0INTCX,Y-»-VY) :IF P 

1-1 AND P2-1 AND P3-1 THEN 190 

115 PLAY "05A64* 

120 IF P2-1 AND P3-1 THEN 160 

130 IF P2>1 THEN VX— WX 

140 IF P3>1 THEN VY--UY 

150 GOTO 190 

160 UX--VX:VY— VY 

190 PRESET (X, Y> rX-X+VX'.y-Y+VY 

240 GOTO 100 

A primeira linha seleciona a tela de 
baixa resoiucSo, define as cores e ativa 
o gerador de numeros randomicos. 

A tela do MSX nao contain blocos es- 
palhados ateatoriamente, mas cantos 
diagonals coloridos. Utilizar vari^veis 
para checar se a bola estd batendo em 
algum desses cantos seria complicado e 
deixaria o programaextremamente len- 
to, E, considerando que precisarfamos 
ainda adicionar vArios IF,.,THEN pa- 
ra detectar colisoes da bola com algum 
dos blocos no meio da tela, podemos 
concluir que tal processo i praticamen- 
te inviavel. 



VERIFICANDO MAIS DE UMA COR 



Com algumas linhas de programa, o 
POINT possibilita a detecfao de tres 
quadrados ao redor da bola. E, se esco- 
Ihermos cuidadosamente as cores, pode- 
remos fazer a verificatjao de varias de- 
las com apenas duas checagens. 

O programa comeca ajustando o fun- 
do; timpa a tela com urn fundo preto, 
coloca OS cantos — dois vermelhos e 
dois azuis — e desenha uma moldura 
verde (linhas 10 a 60). A linha 70 ie os 
dados dos blocos restantes que estao na 
linha DATA 80 e os coloca na tela via 



LINE. Como vocS pode observar, este 
programa d um bom exemplo de como 
OS comandos grdficos funcionam cm al- 
ta e em baixa resolufSo, 

A linha 90 determina as coordenadas 
iniciais da bola, X e ¥, e as velocidades 
iniciais, VX e VY, que sSo componen- 
tes do vetor de velocidade nas dire^des 
X e Y, respectivamente. A bola, repre- 
sentada por um ponto de baixa resolu- 
gao, i, emao, impressa nas coordenadas 
X.Y. 

Para a checagem das cores, definem- 
se trfis varidveis (linha 1 10): PI, para o 
quadrado diagonalmente k frente da bo- 
la (qualquer que seja a dire^So em que 
ela esteja se movimentando), P2 e P3, 
para os quadrados nas postQoes de bai- 
xa resolu^ao seguintes (cada bloco de 
baixa resolugao tem quatro por quatro 
pontos). Partindo do principio de que 
nao € precise checar os quadrados das 
dire^Ses nas quais a bola nao se movi- 
menta, concluimos que esses trSs testes 
sao suficientes. 

A linha 1 10 tamb^m verifica se os tres 
quadrados sao pretos (cor de niimero 1, 
que tambem e a cor de fundo). Em ca- 
so afirmativo, o computador vai para a 
linha 190, saltando os testes de reflexao, 
pois a bola nao estd batendo em nada. 

Se a posiijao x de baixa resolupao se- 
guinte (quatro pontos adiante na dir 
?ao horizontal) e a posifao y seguin 
(quatro pontos na diregao vertical) fi 
rem pretas, mas a proxima n§o, a bol! 
precisard voltar exatamente na mesma 
direipao de que veio, Assim, o compu- 



tador salta para a linha 160, t^ue con- 
t6m OS procedimentos necessdnos para 
esse caso especial de colisSo diagonal. 
Os dois vetores de velocidade (na dire- 
cao X e na dire9Jo y)sao invertidos.fa- 
zendo a bola retroceder. 

Se nenhum teste executado ate a li- 
nha 130 for vqrdadeiro, a bola deve es- 
tar atingindo algum objeto (seja ele um 
canto ou um bloco) pelas laterals. A li- 
nha 1 30 verifica se o quadrado atingido 
estS na horizontal (lados direito ou es- 
querdo), e, constatando que sim.inver- 
te vetor relevante da velocidade. O ve- 
tor relevante i oposto ao eixo de coli- 
sSo — portanto, no nosso exemplo, o 
vetor y € invertido. 

A linha seguinte, ou seja, a 190, atri- 
bui k bola a cor de fundo, apagando, as- 
sim, sua ultima posifao. Depois, o pro- 
grama atuaiiza a velocidade da bola e 
manda o computador de volta para a li- 
nha 100. Esta d& continuidade ao mo- 
vimento da bola. 
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HOME : 
FOB X 



GR 

■ 



: COLOR- 13 

TO 39: PLOT X,0: 
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?19 



PLOT X,39: NEXT 

30 FOR Y - TO 39: PLOT 0,Y: 

PLOT 39, Y: NEXT 

40 FOB N - 1 TO 30 

50 RX - INT ( RND (1) * 34) + 

3 

60 RV - INT t RND {1) * 34) + 

3 

70 PLOT RX.HY: NEXT 

BO X = 19:Y "^ 19;XU = - 1 : YU =• 

1 
90 COLOK=» 3^ PLOT X , Y : OX - XtO 
Y = Y 

100 X - X + XV:Y - Y + YV 
110 TX • SCRN( X + XV. Y) 
1?0 TY - SCRN( X.Y + YV) 
130 IF TX - 13 THEN XV = - XV 



140 IF TY - 13 THEN YV 



YV 



150 COLOR- 0; 
160 GOTO 90 



PLOT OX.OY 



s 



Para o TK-2000, substitua os niirne- 
ros 13, no programa do Apple, por 5. 
As litihas alteradas ficam assim: 

10 HOME : OR : C0L0R= 5 

130 IF TX » 5 THEN XV - - XV 

140 IF TY - 5 THEN YV - - YV 

O programa para o Apple e o 
TK-2000 nao difere muito daquele do 
Spectrum. Ele corrteca Umpando a tela, 
definindo o modo grdfico de baixa re- 
solugio e especificando a cor amarela 
{numero de c6digo 13),tantopara osblo- 
cos como paia as bordas. Em graficos 
de baixa resotmfao temos uma tela ini- 
cial de 40x40, com uma janela para tex- 
to. Se indicarmos algum ponto da tela, 
aparecera naquela posi^ao um retangu- 
lo na cor que estiver em vigor. No 
TK-2000. o c6digo da cor ^ 5 
(Vermel ho). 

A linha 20 e responsivel pelas partes 
superior e inferior das bordas. Observe 
que mantivemos o valor da coordenada 
y constante e variamos o valor da coor- 
denada X, tragando, assim, as duas IJ- 
nhas horizontals. 

A linha 30 segue o mesmo princfpio 
da linha 20, mas varia os valores da 
coordenada y e traga os lados esquerdo 
e direito das bordas. 

Os blocos espalhados aleatoriamen- 
te pela tela sao gerados entre as linhas 
40 e 70- A linha 50 atribui a coordena- 
da RX um valor randomico entre 3 e 36, 
e a linha 60 atribui a RY um valor nesse 
mesmo intervalo. 

RX e RY sao as coordenadas do blo- 
co a scr plotado (tra^ado no grifico). A 
Unha 80 define as coordenadas intciais 
do retanguio que, no caso, representa a 

Ibola, e tamb^m ajusta os sentidos dos 
vetores de velocidade XV e YV. 



A linha 90 define a cor da bola — o 
numero 3 e o cddigo para a cor purpu- 
ra no Apple e branca no TK-2000 — , 
imprimindo-a, em seguida, nas coorde- 
nadas X e y . A mesma linha define duas 
outras varj^veis importantes: OX e OY, 
que armazenam as coordenadas da po- 
sigio anterior da bola para que esta pos- 
sa ser apagada mais tarde. 

A posigao da bola d atualizada pela 
linha 100 do programa, que incrementa 
as coordenadas da bola na direijao do 
vetor da velocidade. 

A cor do quadrado situado imedia- 
tamente ao lado da bola — ou seja, 
aquele no quai a bola estd prestes a ba- 
ter pela horizontal — ^ guardada em 
TX, por meio do comando SCRN. A 
cor do quadrado logo acima ou abaixo 
(depende da trajet6ria) da bola i guar- 
dada na variavel TY. As linhas 130 e 140 
verificam se esses quadrados que estao 
no caminho da bola sao amarelos (cor 
13) ou, no caso do TK-2000, vermelhos 
(cor 5). Se quadrado da horizontal for 
amarelo ou vermelho, inverte-se o vetor 
de velocidade horizontal da bola, 
Tratando-se do quadrado de cima ou de 
baixo, vetor invertido serd o da com- 
ponente vertical. 

Para apagar a bola, utjlizamos o jd 
conhecido artificio de redesenhd-la na. 
mesma posi?ao, so que na cor de fun- 
do. Para isso, a linha 150 seleciona a cor 
(preta), que ^ a cor de fundo, e plota 
um quadrado no local definido pelas 
coordenadas OX.OY — coordenadas 
"velhas" da bola. 

O programa continua na linha 160, 
que envia o computador de voUa para 
a linha 90 e tudo se repete. 

Observe que o programa nao inclui 
testes para a verificagao de quadrados 
dispostos diagonalmente a trajetiria 
percorrida pela bola. Assim, eles sao ig- 
norados e eliminiados. Nao e dificil 
acrescentar uma linha que fa?a esse tes- 
te, mas o efeito seria uma bola indo e 
voltando pelo mesmo caminho. 
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fi muito ficil transformar os progra- 
mas em jogos, bastando adici^onar-lhes 
algumas linhas. O programa de TRS- 
Color, por exemplo, constituiria uma 
boa base para um jogo tipo fliperama. 
Podemos fazer o computador executar 
v4rias operacoes depois das condis^oes 
IF. ..THEN — por exemplo, soar um 
bip cada vez que a bola atinge um blo- 
co ou borda, ou mesmo acrescentar um 
placar. Outros artigos de INPUT utili- 
zarao os comandos vistos aqui em diver- 
sas rotinas de jogos. 
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O TRS-Color nao dispoe apenas do 
POINT, usado na tela de baixa resolu- 
i;ao. Ha outro comando, o PPOINT, 
que pode ser utilizado na tela de alta re- 
sol u?ao. No MSX, o mesmo comando 
POINT se aplica a aha resolugao. 

Em vez de devolver o c6digo da cor 
de um certo quadrado, como faz o co- 
mando POINT, PPOINT devolve o 
codigo da cor de um ponto. 

Digite e rode o programa a seguir e 
veja como empregar esse comando, 

Ei 

10 PMODE 1,1 

20 PCLS 3 

30 SCREEN 1,0 

40 LINEt20,20)-(235, 171) .PRESET 

BF 
50 VX-BND(7)-4:VY-BIID(7)-4 
60 BX-127:BT-95 
70 P8ET(BX,BY,4} 

BO IF PP0IMT(UX+BX.BY)-3 THEN V 
X-RHD(3) * t (VX>0) - tVX<0) ) 
90 IF PPOINT (BX.BY+VY) -3 THEN V 
Y-RND{3) * ( CVY>0) - CVY<0) ) 
100 PRESET (BX.BY) 
110 BX-BX+VX:BY-BY+VY 
120 GOTO 70 
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10 SCREEN 2: COLOR 1 . 15, 15 :n-BND 

C-TIME) 

40 LINE (16,16)-(238,177) ,4.B:P 

AINTCO.O) .4 

50 VX-INT{RND(l)*B-4) :VY-1MT(BN 

Da>*8-4) 

60 BX-l27:BY-95 

70 PSETCBX.BY) .4 

80 IF POINT(VX+BX,BY)-4 THEN VX 

— VX 

90 IF P01NT{BX.BY+UY)-4 THEN VY 

— VY 

100 PRESET(BX,BY) ,15 

110 BX=BX+VX:BY=BY+VY 

120 GOTO 70 

Uma bola movimenta-se pela tela, 
batendo e voltando. O comando 
PPOINT — ou POINT, no MSX — ^ 
usado para verificar se a bola bateu na 
parte azul. As linhas 80 e 90 checam se 
o ponto a frente da bola e azul. Em ca- 
so afirmativo, a bola e revertida pelo 
restante das duas linhas, que calculam 
uma velocidade aleat6ria para o movi- 
mento da bola (no programa do MSX 
a velocidade € apenas invertida). 

Em geral, usa-se PPOINT (ou POINT, 
no MSX) para detectar colisoes. Se ti- 
vermos, por exemplo, um grifico coli- 
dindo com outro, podemos checar a co- 
lisiLo verificando a cor de um deles. 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 
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-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



IIIIHHHNO PR6XIIVIO NUMEROHHIIIIIIIIII 



PROGRAMAQAO BASIC 

Rotinas de ordenagao: por substituigao retardada, por 
espalhamento, por insergao, instant§nea. 

PROGRAMAQAO BASIC 

Sfmbolos graficos do TK-2000. Entrada de graficos pelo 
teclado e seu use em programas. 

PROGRAMAQAO BASIC 

Musica em seu micro: pequenas melodias. 

PROGRAMAQAO DE JOGOS 

Conclusao do jogo de palavras. 
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Ot iOGOS 
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